Gehen wir davon aus, dass das Formular momentan so aufgerufen wird:
Delphi-Quellcode:
procedure TMainForm.Button1Click(Sender: TObject);
begin
Form1.Show;
end;
Eventuell könntest Du uns aber auch mal die Stelle in Deinem Quelltext zeigen, an der Form1 angezeigt werden soll. Was passiert da vorher noch so alles?
nein - die Form ist ja die Mainform des Programmes - sprich das Programm soll vollautomatisch ablaufen und nur eben während die Daten verarbeitet werden einen Status anzeigen - und sich dann eben auch selber wieder beenden.
Das ist übrigens (fast) der komplette Code, der Rest ist der Delphi-Standard:
Delphi-Quellcode:
unit TestUnit;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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, 9);
Form1.Label1.Refresh;
end;
end;
ArtikelString.Free;
Application.Terminate;
end;
end.
Hans