Hallo zusammen,
so nach langem testen und probieren, erlesen von SelectDirectorie und Find First und Find Next etc. habe ich das mit dem einlesen wunderbar hinbekommen.
Ich kann auch in einem Memo sehen, welche Dateien eingelesen worden sind.
Den Inhalt der Dateien gebe ich in einem VST wieder. Allerdings habe ich da das Problem, das da immer nur die letzten 1 1/2 Dateien mit Ihrem Inhalten dargestellt werden.
Spiele ich das ganz im Debug Modus durch. wird dem VST aber der gesamte Inhalt aller Dateien zugewiesen. In folgendem Code wird das durchgeführt.
Hat da jemand ne Idee wo das dran liegen könnte.
Delphi-Quellcode:
procedure TImportForm.DisplayResult(Parser: TMySimpleBaseParser);
var
i: Integer;
ID : Integer;
Daten : TOMBSerie;
begin
VST.Clear;
VST.BeginUpdate;
for i := 0 to High(Parser.EntriesMB256) do begin
Daten := TOMBSerie.Create;
with Daten do
begin
Daten.ID := Parser.EntriesMB256[i].ID;
Daten.LfdNr := Parser.EntriesMB256[i].LfdNr;
Daten.Datum := Parser.EntriesMB256[i].Datum;
Daten.Uhrzeit := Parser.EntriesMB256[i].Uhrzeit;
Daten.Ereignis := Parser.EntriesMB256[i].Ereignis;
Daten.Teilnehmer := Parser.EntriesMB256[i].Teilnehmer;
Daten.Bereich := Parser.EntriesMB256[i].Bereich;
end;
VST.AddChild(nil, Daten);
end;
VST.ScrollIntoView(VST.GetLast, true);
VST.EndUpdate;
end;
MFG
Jens