Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
6. Mär 2005
Ja, schon besser, aber in einer Zeile sollte eigentlich nur eine Anweisung stehen.
function DeletePicture(PicInfo:Pointer): Boolean;
var I,Index: Integer;
ptr2: ^TPictureInfo; // Addresse auf Eintrag im Dyn. Array Picture
begin
Result:=False;
Index:=-1;
for I:=0 to Count-1 do // Array durchlaufen
begin
ptr2:=@Picture; // Addresse des Eintrags holen
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
6. Mär 2005
Dein Codestil ist schrecklich unübersichtlich :roteyes: .
Ich weiß zwar nicht, was für ein Array Picture ist, aber könnte es sein, dass hier nur die Pointer zugewiesen werden?
Picture:=Picture;