Was für ein Problem hast du jetzt?
Edit:
Wieso hast du so viele unnötige doppelte Schleifen drin?
Delphi-Quellcode:
Wie z. B. diese:
for p:=0 to 9 do
with plz[p] do
fahrzeuge:=max (ceil (g/mg), ceil (v/mv));
for p:=0 to 9 do
with plz[p] do
memo1.lines.add ('PLZ-Gebiet'+inttostr(p)+': '+
inttostr(fahrzeuge)+'Fahrzeug(e), '+
inttostr(pakete)+' Pakete');
Wieso nicht so:
Delphi-Quellcode:
for p:=0 to 9 do
begin
with plz[p] do
begin
fahrzeuge:=max (ceil (g/mg), ceil (v/mv));
memo1.lines.add (Format('PLZ-Gebiet%d: %d Fahrzeug(e), %dPakete', [p, fahrzeuge, pakete]));
end;
end;
(Format eingebaut)
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<