Du kannst das natürlich auch mit Textfile machen...
Du lädst die Textdatei in die Liste und kannst dann über Sl[Zahl] auf eine bestimmte Zeile der Datei zugreifen.
Du kannst natürlich ein Image erstellen, ohne das Ganze immer einzelnd zu machen.
Hier eine allgemeine Prozedur ohne eine neue Methode zu erstellen:
Delphi-Quellcode:
procedure TForm1.ErstelleImage(Fuer:TForm;aLeft,aTop,aWidth,aHeight:integer; Quelle:string; Strecken:Boolean);
var I:TImage;
begin
I:=TImage.create(Fuer);
I.left:=aLeft;
I.Top:=aTop;
I.width:=aWidth;
I.height:=aHeight;
if FileExists(Quelle) then I.Picture.Bitmap.LoadFromFile(Quelle);
I.parent:=Fuer;
I.Stretch:=Strecken;
end;
So würde dann der Aufruf aussehen:
ErstelleImage(Form1,100,100,100,100,'a.bmp',True);
Hierbei würde ein Image auf Form1 mit Left, Top, Width und Height = 100 erstellt. Es würde ein Bild aus der Datei "a.bmp" geladen und dieses würde auf die Größe des Images gestreckt werden...
Liebe Grüße!