Hallo
ich versuche ein Programm zuschreiben, das die im Edit Feld eingegebene Zeichenfolge analysiert, bzw
jede Stelle Edit1.Text[i] in eine Zahl umwandelt und sie in er Varibale speichert...
So soll, falls zB Edit1.Text[5] ein D ist die Variable t5 den Wert 4 haben usw.
Das Problem ist, dass Delphi erstmal schon bei A,a B,b usw rummeckert und ich weiß
auch nicht, ob das t[i] funktioniert. Hat einer eine Idee, wie dies Funktionieren kann?
Mein nicht funktionirender Ansatz
:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 20 do begin
case Edit1.Text[i] of
A,a: t[i] := 1;
B,b: t[i] := 2;
C,c: t[i] := 3;
D,d: t[i] := 4;
E,e: t[i] := 5;
F,f: t[i] := 6;
G,g: t[i] := 7;
H,h: t[i] := 8;
I,i: t[i] := 9;
J,j: t[i] := 10;
K,k: t[i] := 11;
L,l: t[i] := 12;
M,m: t[i] := 13;
N,n: t[i] := 14;
O,o: t[i] := 15;
P,p: t[i] := 16;
Q,q: t[i] := 17;
R,r: t[i] := 18;
S,s: t[i] := 19;
T,t: t[i] := 20;
U,u: t[i] := 21;
V,v: t[i] := 22;
W,w: t[i] := 23;
X,x: t[i] := 24;
Y,y: t[i] := 25;
Z,z: t[i] := 26;
end;
end;
end;
Thx4Help
Bassel