Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

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

  Alt 14. Dez 2018, 20:35
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.
  Mit Zitat antworten Zitat