Delphi7 Buchstabe in Zahl umwandeln!
Hallo liebe Leser! Ich möchte gerne von euch wissen wie man einen Buchstaben in eine Zahl umwandelt! Mein Lehrer hat gesagt, dass jeder Buchstabe eine bestimmte Zahl in Delphi hat Z.b. a=1, b=2, c=3, d=4 usw. .Mit welchem Befehl kann man das machen?
Vielen Dank schonmal im Vorraus :)
3 Antworten
Hallo Schlamu, ich habe wie gesagt eine Routine in C# geschrieben. Hier mein Quelltext:
public static String TexttoNubercode(string givenstring)
{
string Resultstring = "";
string[] alphabethg = { "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Ä", "Ö", "Ü", "ß" };
string[] alphabethk = { "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z", "ä", "ö", "ü", " "};
for (int k = 0; k < givenstring.Length; k++)
{
for (int z = 0; z < alphabethg.Length; z++)
{
char arrayg_char = System.Convert.ToChar(alphabethg[z]);
if (givenstring[k] == arrayg_char)
{
Resultstring += (z + 4*Math.PI/1000).ToString() + " ";
}
}
for (int i = 0; i < alphabethk.Length; i++)
{
char arrayk_char = System.Convert.ToChar(alphabethk[i]);
if (givenstring[k] == arrayk_char)
{
Resultstring += (i + 4*Math.PI/1000).ToString() + " ";
}
}
}
return Resultstring;
}
Ich hoffe, dass dir das helfen wird. Liebe Grüße:)
Vielen dank für dein Beispiel ich werde mal versuchen, das umzusetzen ;)
(Edit: oh, die Frage ist ja schon 7 Jahre alt. Erst hinterher gesehen)
Er meint sicher den Asciicode bzw Ansicode unter Windows.
Jedes Zeichen ist in der Asciitabelle mit einer Zahl codiert zwischen 0 und 255 (es gibt auch Unicode, da gibt es 65535 Zeichen, aber das ist ein anderes Thema und nicht so einfach).
Der Befehl in Delphi (bzw. genauer: Pascal), den Code zu einem Zeichen zu erhalten lautet "ord".
Beispiel:
var zahl: byte;
//..
zahl:=ord('a');
Um aus der Zahl wieder das Zeichen zu bekommen lautet der Befehl "chr".
Beispiel:
var zeichen:char;
//..
zeichen:=chr(65);
Hallo schlamu, zunächst wäre es sinnvoll wenn du dich bei solchen Fragen an ein kompetenteres Forum wendest, da 3/4 der hier geposteten Beiträge höchstens als geistiges Exkrement als folge von miderwertiger Administration und unregelmäßiger Wartung zu bezeichnen sind.
Dennoch werde ich veruschen dir zu helfen:
Delphi ist nicht mein Fachgebiet aber in C# würde ich es folgendermaßen lösen:
Du erzeugst ein stringArray in welches du dein Alphabet speichste.
Die Arrayposition+1 deines Buchstabens ist dann = der Postition im Alphabet.
Um ein vollständiges Wort oder einen Satz zu codieren würde ich den gesamten string anhand einer for-Schleife durchlaufen und jedes Zeichen durch die Arrayposition+1 ersetzen.
Dafür solltest du dich mit strings und den Eigenschaften eines stringobjekts auseinandersetzten.
Werde dafür eine Routine in C# schreiben. Guter Anstoß. Hoffe ich konnte dir helfen Liebe Grüße