Forum: Object-Pascal / Delphi-Language
Delphi
by Michael Habbe,
26. Jul 2006
Hallo, ich habe ihn mal überarbeitet. Du solltest gleiche Elemente zusammenfassen (hier mit or geschehen). Die Performance leidet nicht darunter, weil, wenn die erste Bedingung erfüllt wird, werden die anderen nicht mehr überprüft.
Result:=False;
Daten:='';
repeat
readln(f, Daten);
Daten:=Trim(daten);
if (Daten=chr(13)+Chr(10)) or
(Daten='') or
(daten='/') or
Forum: Object-Pascal / Delphi-Language
Delphi
by Michael Habbe,
26. Jul 2006
fehler:='';
if Belegnummer <> 0 then
if Belegdatum = 0 then
fehler:='Fehler: Belegdatum'
else
if x = 0 then
fehler:='Fehler: x'
else
if y = 0 then
fehler:='Fehler: y'
Forum: Object-Pascal / Delphi-Language
Delphi
by Michael Habbe,
25. Jul 2006
@Jasacul
Du hattest da einen Fehler drin.
fehler:='';
if Belegnummer <> 0 then
fehler:='Fehler: Belegnummer'
else
if Belegdatum = 0 then