Problem bei textfile

[MrKnogge]

du prüfst ja auch ob dein Wort gleich der ganze String ist, du musst aber prüfen ob dein Wort in dem String vorkommt, "pos" heist hier das Lösungswort.

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject); 
begin 
  if fileexists('world.save') then begin 
    assignfile(w, 'world.save'); 
    reset(w); 
    tota := 0; 
    repeat 
      readln(w,line); 
      if pos('[OBJECT]', line) <> 0 then tota := tota + 1; 
    until eof(w); 
    Label4.Caption := IntToStr(tota); 
    CloseFile(w); 
  end 
  else ShowMessage('Kein World.save vorhanden'); 
end;

Diese Lösung funktioniert aber nur wenn '[OBJECT]' höchstens einmal pro Zeile vorkommt.

gruss