Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.737 Beiträge
Delphi 6 Enterprise
|
AW: Zugriffsverletzung??
26. Apr 2011, 10:56
Wow, super Tipp, vielen Dank! Davon habe ich noch nie gehört, aber das ist wirklich eine viel bessere Lösung!!
Denkst du, man kann aus dem Rest auch eine Schleife machen?
Code:
Star[1].PosX := StrToInt(MemoLoadPos.Lines[2]);
Star[1].PosY := StrToInt(MemoLoadPos.Lines[3]);
Star[2].PosX := StrToInt(MemoLoadPos.Lines[4]);
Star[2].PosY := StrToInt(MemoLoadPos.Lines[5]);
Star[3].PosX := StrToInt(MemoLoadPos.Lines[6]);
Star[3].PosY := StrToInt(MemoLoadPos.Lines[7]);
...
Star[i].PosX müsste von 1 bis 20 gehen, MemoLoadPos.Lines[i] von 2 bis 42. Geht das?
In einer Schleife von i:=1 bis 20:
Delphi-Quellcode:
Star[i].PosX := StrToInt(MemoLoadPos.Lines[2*i]);
Star[i].PosY := StrToInt(MemoLoadPos.Lines[2*i+1]);
Ralph
|