Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke
Online

Registriert seit: 10. Jun 2003
Ort: Berlin
9.747 Beiträge
 
Delphi 11 Alexandria
 
#6

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

  Alt 14. Dez 2018, 22:46
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 ??
Nein, denn jetzt ist das doppelte begin weg, dafür ist nach jedem then ein begin zu viel drin.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat