[Fehler] M_LGS.pas(115): E2018 Record, Objekt oder Klassentyp erforderlich

[Amenovis]

ehm wieso hast du eigentlich nen doppel begin ??


do begin begin ?????

Delphi-Quellcode:

while Ed_01.text[i]<>'=' do
  begin {<<<<<---- hier nur 1 begin statt 2}
    case Ed_01.text[i] of
    'x':begin
          if i=1 then begin x_1:= 1 else x_1:=strtofloat(Ed_01.text[i_2-i]);
          i_2:=i+1;
        end;
    'y':begin
          if i=1 then begin 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 begin z_1:=-strtofloat(Ed_01.Text[i_2-i]);
        end;
    i:= i+1;
  end;

ist es so nicht besser ??

lg Timo