Problem bei textfile

[devilone]

hmm.. das was du gepostet hast klappt super..

aber wie bekomme ich das hin , wenn sich die zahle immer ändert??

das hier habe ich probiert klappt aber nicht..

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
sn:integer;
begin
 try
 listbox1.Items.Append('SPAWN='+label1.Caption) ;
 sn:= 0 ;
 assignfile (w,'world.save');
 reset (w);
 assignfile (t,'tests.scp');
 rewrite (t);
repeat
readln(w,line);
if pos('SPAWM='+(label1.Caption)+' ', line) <> 0 then sn:= sn + 1;
until eof(w);
 label5.Caption:= inttostr (sn);
 closefile (w);
 closefile  (t);
 finally
 button2.Show;
 button3.Show;
 button4.Show;
 label1.Caption:='';
 button1.Hide;
 end;
end;

ok ist zwar nicht sehr elegant aber funtz jetzt...

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
sn:integer;
sie:string;
begin
 try
 listbox1.Items.Append('SPAWN='+label1.Caption) ;
 label7.Caption:= label1.Caption + ' ';
 sie:='SPAWN='+label1.Caption;
 sie:=sie+' ';
 sn:= 0 ;
 assignfile (w,'world.save');
 reset (w);
 assignfile (t,'tests.scp');
 rewrite (t);
repeat
readln(w,line);
if pos(sie, line) <> 0 then sn:= sn + 1;
until eof(w);
 label5.Caption:= inttostr (sn);
 closefile (w);
 closefile  (t);
 finally
 button2.Show;
 button3.Show;
 button4.Show;
 label1.Caption:='';
 button1.Hide;
 end;
end;

Danke für eure hilfe..

bis zur nächsten Frage...