Entwickler-Ecke

Sonstiges (Delphi) - Wort zeichenweise in Zahlen übersetzen


Mulle1992 - Fr 18.07.08 23:53
Titel: Wort zeichenweise in Zahlen übersetzen
Ich möchte ein Programm entwickeln, bei dem eine Zeichenfolge (z.b: "Geld") in Buchstaben verwandelt wird ( A=1, B=2...)

aus Geld würde also "7 5 12 4"

irgendwann (nach einigen Berechnungen sollen diese Zahlen rückgewandelt und dann ausgegeben werden.

Es wäre nett, wenn ihr mir helfen könntet, weil ich null plan hab, wie ich das machen soll!!!

Danke im vorraus:

Mulle


mkinzler - Fr 18.07.08 23:57
Mit was genau hast du Probleme?
Dem Zugriff auf die Buchstaben? s[<Index>]
Die Zahl ? ord()-63


Mulle1992 - Sa 19.07.08 00:30
Titel: genaues Problem
Es geht mir darum, jeden einzelnen Buchstaben in eine Zahl umzuwandeln und dann mit diesen Zahlen zu rechnen


Jerk - Sa 19.07.08 02:00
wie von Mkinzler geschrieben, jedes einzelne Zeichen des Strings abgreifen und mittels ord() in Zahl umwandeln.


UGrohne - Sa 19.07.08 03:07
Bitte greife doch zu einem aussagekräftigeren Titel, "Brauche Hilfe bei Programmierung" ist auch nicht Besser als "Brauche Hilfe". Denn Programmieren tut hier wohl so gut wie jeder und jeder der hier schreibt, braucht auch Hilfe ... :roll:


alzaimar - Sa 19.07.08 08:19
[OT]Und vielleicht stärken wir den Moderatoren nun endlich mal den Rücken und weigern uns, eine Antwort zu geben, bis die verständliche Bitte nach dem besseren Titel umgesetzt wird [/OT]
Vorschlag: "Wort zeichenweise in Zahlen übersetzen". (Da die deutsche Sprache mittlerweile eine Fremdsprache geworden ist).


IceBube - Sa 19.07.08 19:25
So zum Beispiel:



Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
 
function TextToZahlen(Word:string):string;
var zFolge : string;
Zahl,i : integer;
begin
//Text zu Zahlen konvertieren

//Die verwendeten Buchstaben -Erweiterbar
zFolge := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ';

//Umwandeln
for i := 1 To Length(Word) do
begin
Zahl := Pos(Word[i],zFolge);
Result := Result+intToStr(Zahl)+' ';
end;

//Letztes Leerzeichen löschen
Delete(Result,Length(Result)-1,1);
end;

//Aufruf
Edit1.Text := TextToZahlen('Das ist ein Test');


Hoffe das war dir eine Hilfe, geht aber sicher auch einfacher^ wäre jedoch meine Variante!

lg


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!