@Delphi-Narr:
Sieht ganz gut aus, ich habe aber noch eine Frage:
Ich würde die Textdatei mit
Delphi-Quellcode:
var
f:textfile;
s:string;
assaignfile(f,'C:\geheim.txt');
reset(f); //Damit ich auch die 1. Zeile lese
readln(f,s);
closefile(f);
Soweit erstmal. Sagt mir bitte, wenn das aus irgendeinem Grund nicht geht.
Jetzt verstehe ich das aber nicht, wie du das mit der Liste machst. Ich habe noch nie mit Listen gearbeitet...
Geht es vielleicht auch einfacher, und nicht so umständlich wie
Zitat:
Delphi-Quellcode:
while i<SL.count do
begin
Objekt:=TImage.create(Form1);
Objekt.name:=SL[i];
Objekt.Left:=StrToInt(SL[i+1]);
Objekt.Top:=StrToInt(SL[i+2]);
Objekt.Width:=StrToInt(SL[i+3]);
Objekt.Height:=StrToInt(SL[i+4]);
Objekt.parent:=Form1;
Objekt.show;
Objekt.Canvas.FloodFill(1,1,clblack,fsSurface);
i:=i+5;
end;
Kann man der Form einen Befehl geben, mit der sie selber ein neues Image erstellt?
Danke schonmal für eure Antworten.