(Gast)
n/a Beiträge
|
Re: END. fehlt am Modulende
26. Okt 2008, 17:05
Delphi-Quellcode:
if LKPunkte then
begin
s := format('%n', [LK[i].Punkte_MoFr]);
TextOut (1500 - TextWidth(s), ORand, s);
s := format('%n', [LK[i].Punkte_Summe_MoFr]);
TextOut (1700 - TextWidth(s), ORand, s);
end // fehlt das nicht? bei einem else ohne if sollte der compiler auch schon ein wenig früher aussteigen als beim "END."...
else
begin
s := format('%n', [LK[i].Preis_MoFr]);
TextOut (1500 - TextWidth(s), ORand, s);
s := format('%n', [LK[i].Preis_Summe_MoFr]);
TextOut (1700 - TextWidth(s), ORand, s);
end; // if LKPunkte
|
|
Zitat
|