procedure TForm2.FormShow(Sender: TObject);
var ini:TIniFile;
DatPfad,
Dateiname,
zwischen :
String;
lauf : Integer;
begin
Try
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'
einstellungen.ini');
Try
DatPfad := ini.ReadString('
DHL','
DatPfad','
C:\Temp');
Finally
ini.Free;
END;
Except
ON E:
Exception DO
Showmessage('
Fehlercode #1' + E.
Message);
END;
FileListBox1.Directory := DatPfad;
FileListBox1.Mask := '
*.dat*';
tbl_Verarbeitet.TableName := ExtractFilePath(ParamStr(0)) + '
Datenbanken\DHL\Verarbeitet.db';
tbl_Eigen.TableName := ExtractFilePath(ParamStr(0)) + '
Datenbanken\DHL\Daten.db';
FOR lauf := 0
to FileListBox1.Items.Count -1
DO
BEGIN
Label1.Caption := '
Lese Dat Daten (Gesamt: ' + IntToStr(FileListBox1.Items.Count)+ '
/ Erledigt: ' + IntToStr(lauf)+ '
)';
Label1.Update;
Application.ProcessMessages;
Dateiname := FileListBox1.Items[lauf];
Dateiname := Copy(Dateiname,1,Length(Dateiname));
tbl_Verarbeitet.Open;
tbl_Verarbeitet.First;
IF tbl_verarbeitet.Locate('
Verarbeitet',Dateiname,[])
THEN
// Wenn gefunden, tue nix
ELSE
BEGIN
zwischen := Dateiname;
Dateiname := DatPfad + Dateiname;
Bearbeite_Datei(Dateiname);
Dateiname := Zwischen;
tbl_Verarbeitet.AppendRecord([
Dateiname,
Date,
'
'
]);
END;
END;
Self.Release;
end;