Hallo zusammen,
folgende Zeilen sollten eigentlich nur mein array befüllen, aber die Bilder werden direkt im PanelTop angezeigt, ohne das ich auf das array zugreife.
Wo liegt dort mein Denkfehler?
Delphi-Quellcode:
var
i: integer;
jpg: tjpegimage;
ms: tmemorystream;
...
for i := 0 to 19 do
begin
jpg := tjpegimage.Create;
ms := tmemorystream.Create;
TBLobfield(FDQuery1.FieldByName('Bild' + inttostr(i))).SaveToStream(ms);
ms.Position := 0;
jpg.LoadFromStream(ms);
if ms.Position > 50 then
begin
SetLength(PatBildAr, length(PatBildAr) + 1);
PatBildAr[i] := timage.Create(self);
PatBildAr[i].Parent := PanelTop;
PatBildAr[i].Align := alClient;
PatBildAr[i].Center := true;
PatBildAr[i].Proportional := true;
PatBildAr[i].Stretch := true;
PatBildAr[i].Visible := true;
PatBildAr[i].Picture.Assign(jpg);
jpg.Free;
ms.Free;
end;
end;
Vielen Dank im voraus.
Grüße vom Janninger