Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Zugriffsverletzung. Doch warum ?
24. Sep 2012, 19:26
Delphi-Quellcode:
repeat
done:= True;
For i:= 1 to high(Balken) do
begin
If Balken[i-1] > Balken[i].Wert then
begin
temp := Balken[i-1].Wert;
Balken[i-1].Wert := Balken[i].Wert;
Balken[i].Wert := temp;
done := false;
end;
end;
until done;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|