Hallo,
ich schreibe auch bei einer Anweisung ein begin/end, dass ist zwar etwas mehr Tipparbeit, erhöht meiner Meinung aber die Übersicht. Ein weiterer Aspekt ist, dass beim Einfügen einer weiteren Befehls-Zeile besser klar wird was gemeint ist.
Delphi-Quellcode:
StrMaNr:= TMSV1(MessStellenLst.Objects[i]).MaNr;
for i := 0 to MessStellenLst.Count - 1 do
begin
if TMSV1(MessStellenLst.Objects[i]).MSAktiv then
begin
If StrMaNr = TMSV1(MessStellenLst.Objects[i]).MaNr then
begin
if StrMaNr <> TMSV1(MessStellenLst.Objects[i]).MaNr then
begin
iMaxMessStellen:= 0;
end;
inc(iMaxMessStellen);
StrMaNr:= TMSV1(MessStellenLst.Objects[i]).MaNr;
end;
end;
end;
Bis bald Chemiker