Hallo,
ich habe eine Anwendung gestrickt, die Datei aus einer Text-Datei in eine andere Datei konvertiert.
Gestartet wird die Konvertierung mit einem Button-Click. Da die Konvertierung einige Zeit in Anspruch nimmt, soll beim Clicken der StatusBar anzeigen, dass die Datei in Bearbeitung ist. Wenn die Konvertierung durchgeführt worden ist, soll sich der Text in Fertig ändern. Hier der Code:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text := 'Datei wird erzeugt!';
HHJahr := MaskEdit1.EditText;
BMon := MaskEdit2.EditText;
if (StrToInt(BMon) < 1) or (StrToInt(BMon) > 12) Then
begin
StatusBar1.Panels[0].Text := 'Bitte einen Monat zwischen 01 und 12 eingeben!';
exit;
end;
if CheckBoxBeamte.Checked then DTA((Quellpfad + Quelldatei_Beamte),(Zielpfad + Zieldatei_Beamte));
if CheckBoxBeschaeftigte.Checked then DTA((Quellpfad + Quelldatei_Beschaeftigte),(Zielpfad + Zieldatei_Beschaeftigte));
StatusBar1.Panels[0].Text := 'Fertig!';
end;
DTA ist die Procedure, welche die Konvertierung erledigt.