hi!
dieser Programmiercode mit Controls[i] ist echt super!
ich habe in heute schon des öffteren verwendet!
leider funktioniert er aber nicht wenn ich die shapes löschen möchte!
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
i, Schleifenlaufzeit: integer;
ini: TIniFile;
begin
ini:=TIniFile.Create(extractfilepath(application.exename) + 'schifferlversenken.ini');
Schleifenlaufzeit:= ini.ReadInteger('Einstellungen','Feldanzahl',0);
i:= 0;
while i < Schleifenlaufzeit+1 do begin
if Controls[i] is TShape then begin
tshape(Controls[i]).Destroy;
inc(i);
end;
end;
ini.free;
end;
weis jemand woran das liegen könnte?