Teile von Textdateien in Listbox darstellen & aktualisieren

[buyden]

hi maxk

Ich glaube die Idee mit dem Löschen ist sehr gut. :mrgreen:
Ich lese erst die Technikernummer aus, überprüfe dann ob "ok" in der Zeile steht und lösche dann die technikernummer und das erste Komma. Dann kann ich theoretisch ja den String bis zum neuen ersten Komma auslesen - die Teilenummer quasi.

Das könnte funktionieren. Ich werd das mal testen und meld mich nochmal.

Danke erstmal. :thumb:

[buyden]

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?? :coder2:

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. :gruebel:

[maxk]

Statt list.Create; schreib mal list:=TStringList.Create;

[buyden]

:lol: Das war's!! :lol:

Funzt alles wie's soll.

Vielen Dank für die Hilfe..

Ein virtuelles Bier für dich!!! :cheers: