Zitat von
bonanza:
Delphi-Quellcode:
{
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := true;
timer1.interval := 30000;
end;
setz das im OI
}
procedure TForm1.Ontimer(Sender: TObject);
var
i,j: integer;
ergebnis:boolean;
begin
On.Enabled := false;
//timer disabeln
ergebnis := true;
DeleteFile('
C:\text.txt') ;
//<-- Er schafft es nicht beim 2. durchlauf die datei zulöschen.
AssignFile (Text_Datei, '
C:\text.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('
http://XXX/text.txt') );
//reset(text_datei);//////////////////////////////////////////////////////////////////du kannst die datei nicht nochmal öffnen;
CloseFile(Text_Datei);
//reset(text_datei);///////////////////////////////////////////////////////////////////////und hier schließ du die datei nichtmehr also weglassen.
Application.ProcessMessages;
list1 := TStringlist.Create;
list1.LoadFromFile('
C:\text.txt');
i := list1.Count;
AssignFile(bla,'
C:\text.txt');
Reset(bla);
for i := 0
to i - 1
do begin
readln(bla,s);
memo1.Lines.Add(s);
if (pos('
Peter',s)>0)
then begin
memo1.Lines.Add('
Hubert');
ergebnis := false;
end;
end;
CloseFile(bla);
//ab hier hab ich so ziemlich alles ausprobiert ^^
list1.Free;
MyTextFile.free ;
on.enabled := true;
//Timer enablen
end;
so ich hab ein paar fehler weg gemacht probiers mal aus.
//edit more fehler weg.