Tipp: Lass dir den Quelltext mal vom Computer formatieren ([Strg]+[D])
Pro-Tipp: Zähle mal die
begin
und dann die
end;
in deinem Quelltext.
Auflösung:
Das ist so nicht richtig:
Delphi-Quellcode:
while Ed_01.text[i]<>'=' do
begin
begin
case Ed_01.text[i] of
'x':begin
if i=1 then x_1:= 1 else x_1:=strtofloat(Ed_01.text[i_2-i]);
i_2:=i+1;
end;
'y':begin
if i=1 then y_1:= 1 else y_1:=strtofloat(Ed_01.text[i_2-i]);
i_2:=i+1;
end;
'+':begin
if (Ed_01.text[i-1]<> 'x') and (Ed_01.text[i-1]<> 'y') then z_1:=-strtofloat(Ed_01.Text[i_2-i]);
end;
end;
i:= i+1;
end;
Wenn du den Computer den Text formatieren lässt siehst du was falsch ist.