hi Matze
ja aber wie habe kein ahnung wie ich da anfangen soll...
hier mal ne andere suchfunktion die auch klappt.. da nach dem suchwort nichts mehr steht..
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 line = '[OBJECT]' then
tota:=tota+1;
until eof (w);
label4.Caption:= inttostr (tota);
closefile(w);
end
else
begin
showmessage ('Kein World.save vorhanden');
end;
end;
aber bei den anderen suchwörtern steht immer noch was dahinter..