Moin,
ich stehe mal wieder vollkommen auf dem Schlauch:
Ich habe ein Programm das automatisch - also ohne Start-Button oä. - bei Form.Show abläuft. Wann bzw. wie kann ich denn während des Programmlaufes die Form anzeigen ??
Ich habe mal ein Textprogramm erstellt - nur die Form, darauf ein Label und eine Textdatei mit 20.000 Zeilen.
Ich merke auch das das Programm ausgeführt wird, es ist aber nicht sichtbar.
Gruss
Hans
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
ArtikelString: TStringList;
Zeile: String;
i, j: Integer;
begin
ArtikelString := TStringList.Create;
ArtikelString.LoadFromFile('d:\temp\test\artikelliste.csv');
for j := 1 to 10 do
begin
for i := 0 to ArtikelString.Count -1 do
begin
Zeile := ArtikelString.Strings[i];
Form1.Label1.Caption := Copy(Zeile, 1, 12);
Form1.Label1.Refresh;
end;
end;
ArtikelString.Free;
Application.Terminate;
end;
end.