Text in bestimmte Zahlen umwandeln

[citybreaker]

Hallo!

habe schon im Forum gesucht, aber nichts brauchbares gefunden.
Wie kann ich einen Text bzw. Wörter oder Buchstaben in eine bestimmte
Zahl umwandeln. Dass z.B. Der Buchstabe a zur 9 wird.

[alcaeus]

Geschieht das Umwandeln nach einem regelmäßigen Muster (a = 9, b = 10, ...), oder zufällig? Etwas mehr Details wären hier sicherlich hilfreich

[sCrAPt]

hiho

Ord('A') gibt 65 aus
Chr(65) gibt hingegen A aus

, sCrAPt

[citybreaker]

Zitat von alcaeus:

Geschieht das Umwandeln nach einem regelmäßigen Muster (a = 9, b = 10, ...), oder zufällig? Etwas mehr Details wären hier sicherlich hilfreich

Jop, soll regelmäßig sein.

A = 2
B = 2
C = 2

D = 3
E = 3
F = 3

G = 4
H = 4
I = 4

J = 5
K = 5
L = 5

M = 6
N = 6
O = 6

P = 7
Q = 7
R = 7
S = 7

T = 8
U = 8
V = 8

W = 9
X = 9
Y = 9
Z = 9

[Lefko]

naja, mir würde da ne case-abfrage einfallen:

Delphi-Quellcode:

case Ord({Buchstabe}) of

65,66,67: result := 2;

68,69,70: result := 3;
...
...
...

end;

Ist sicherlich brauchbar!

MfG Lefko.

[citybreaker]

Muss ich "buchstabe" durch etwas ersetzen?

[Evian]

ja bei "Buchstabe" muss der Buchstabe rein

beispiel:

Code:

funktion getNR(c : CHAR): INTEGER;
BEGIN
 case Ord(c)of
 65,66,67: result := 2;
 68,69,70: result := 3;
 ...
 end;
END;

Form1.buttonclick(Sender: Tobject);
BEGIN
 Label1.caption := getNR('A');
END;

zum leichteren Verständniss könntest Du es auch so machen:

Code:

funktion getNR(c : CHAR): INTEGER;
BEGIN
 case c of
 'A', 'B', 'C': result := 2;
 'D', 'E', 'F': result := 3;
 ...
 end;
END;

Form1.buttonclick(Sender: Tobject);
BEGIN
 Label1.caption := getNR('A');
END;

gruss

Evian

[citybreaker]

Ok, jetzt verstehe ich es.
Nur kommt eine Fehlermeldung die ich nicht verstehe.

Zitat:

Rückgabewert der Funktion 'getNr' könnte undefiniert sein.

Und dann gibts noch eine bei der
Label1.Caption := getNR('a'); makiert wird.

Zitat:

Inkompatible typen 'String und Integer'

[glkgereon]

mansch, das heisst das der rückgabewert integer ist und der erwartete wert (vom label) string ist!
guckstdu hier:

Label1.Caption := inttostr(getNR('a')); //diese komischen Buchstaben da(inttostr) heissen integer to string, also eine typumwandlung falls nochmal ähnliche meldungen kommen, es gibt auch:
strtoint
inttofloat (float=real)
floattoint
und einige mehr...
guckstdu hilfe

[Evian]

Zitat:

Rückgabewert der Funktion 'getNr' könnte undefiniert sein.

Na das Problem ist, wenn ein Zeichen der Funktion übegeben wird,
das nicht in der CASE OF schleife steckt, hat die Funktion keine
Rückgabewert., also machst Du es am besten so:

Code:

funktion getNR(c : CHAR): INTEGER; 
BEGIN 
 result := 0; // Ergebniss initialisieren

 case c of 
 'A', 'B', 'C': result := 2; 
 'D', 'E', 'F': result := 3; 
 ... 
 end; 
END;

------------

Zitat:

Inkompatible typen 'String und Integer'

na Du kannst keinen Integerwert an die Caption eines Labels übergeben.

mach es so Label1.caption := inttostr(getNR('a'));


gruss

Evian