|
Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: TPanel zur Laufzeit anlegen und löschen
16. Apr 2015, 19:50
Delphi-Quellcode:
procedure TForm1.btn1Click(Sender: TObject);
var
LPanel : TPanel;
c : integer;
begin
SetLength(Panels,10);
for low(Panels) to high(Panels) do //<--
begin
{ ...}
Wobei natürlich low(Panels)
bei dynamischen Arrays auch durch eine 0 ersetzt werden kann Wobei Dein Code-Beispiel mit statischen Arrays sowieso nicht funktionieren würde.
Dann kannst Du auch gleich bei Length(Array) - 1
bleiben, da ein dynamisches Array immer bei 0 beginnt und der letzte Index immer Length-1 ist.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|