Also ich hab das mal versucht, aber bei folgendem Code bekomme ich immer ne
Access Violation, aber ich kann mir nicht so ganz erklären warum:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var list: tstringlist;
zeile, nummer: string;
i:integer;
begin
listbox1.Items.Clear;
list.Create;
list.LoadFromFile(datamodule1.tbsetting.fieldbyname('pfad').asstring);
for i:=0 to list.Count do
begin
zeile:=list[i];
if pos(datamodule1.tbsetting.fieldbyname('techniker').asstring,zeile)<>0 then
begin
if pos('OK',zeile)=0 then
Begin
system.Delete(zeile,1,pos(',',zeile));
nummer:=copy(zeile,1,pos(',',zeile)-1);
listbox1.Items.Add(nummer);
end;
end;
end;
if listbox1.Items.Count=0 then
timer2.Enabled:=false;
list.Free;
end;
Sieht jemand den Fehler??
Ich hab das Programm zeilenweise aufen lassen und irgendwie muss der Fehler beim LoadFromFile liegen. Die Datei ist aber nicht geöffnet oder sonstwie gesperrt. ICh kann mir das nicht so ganz erklären.
