Delphi-Quellcode:
for i:=0 to MAX_BUTTONS-1 do
pbTemp := nil;
Mit diesem Code setzt Du das Array als solches 500 mal auf NIL. Was Du beabsichtigt hast, was folgendes:
Delphi-Quellcode:
for i:=0 to MAX_BUTTONS-1 do
pbTemp[i] := nil;
Da Du danach aber so oder so gleich 500 Einträge in das Array schreibst, kannst Du Dir diese Initialisierung hier auch sparen und gleich die Buttons erzeugen:
Delphi-Quellcode:
for i:=0 to MAX_BUTTONS-1 do
begin
pbTemp[i] := TButton.Create(nil);
pbTemp[i].Name := 'ButtonNr' + IntToStr(i);
pbTemp[i].Parent := Form1;
pbTemp[i].Top := 16 + 1;
pbTemp[i].Left := 300;
end;
Die "-1" hinter der Konstanten nicht vergessen...
Der Rest müsste aber klappen.
Daniel R. Wolf
mit Grüßen aus Hamburg