OnCreate Statusanzeige

[Tommy82]

Delphi-Quellcode:

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;

Dann so. Habe jetzt mal eine andere DLL genommen. Hier werden die Excel-Listen verarbeitet. Trotzdes Labels und des Application. ... erscheint kein Formular.

mfg

Tommy82