hmm,
nunja wenn du es schon ohne den befehl [ code ]...[ /code ] machst hätte ich es so gemacht:
procedure ClearArray(const bilder: TMyImageArray);
var
..felder: Integer;
begin
..felder:= Length(bilder);
..for i:= 1 to felder do
..begin
....for j:= 1 to felder do
......begin
......try
........if Assigned(bilder[i,j]) then
........begin
..........bilder[i,j].destroy;
..........bilder[i,j]:= nil;
........end;
......except
........on e: Exception do
........begin
..........// Write a log or show a message about the fuckup on i,j
........end;
......end;
..end;
end;
end;
nuja ich hab nur n anfängerkurs vor was weis ich wie lang gemacht und dann erstmal nicht programmiert. In letzter Zeit hab ich dann nur mal wieder n rappel bekommen (-> ich bin blutiger anfänger). Ich bilde mich hauptsächlich durch bücher, denn der schulinfokurs ... nun jaZitat
leider bin ich grad net @home, insofern kann ich nichts testen
btw. jippi noch n trigun fan![]()






Zitieren