Zapis pliku txt po 10 sec.

Wlasnie jak mozna zrobic, aby:

Program zapisywal wszystko co jest w Memo co 10 sec.
Ale nie niszczyl wczesniej zapisanych danych? tylko aby dopisywal =P

z gory THX!

TTimer, SaveToFile, Interval pętle for i troszki pomyślunku

Mógłbys zrobic tak że dopisywac by do memo (memo1.add) a memo by zapisywał do tego pliku. A co do timera, to interval na 10000

Oto poprawne rozwiązanie:

type
TForm1 = class(TForm)
...
private
FileHandle: TextFile;
end;

procedure TForm1.OnCreate(...);
begin
AssignFile(FileHandle, 'C:plik.txt');
try
AppendFile(FileHandle)
except
Rewrite(FileHandle)
end;
end;

procedure TForm1.OnDestroy(...);
begin
CloseFile(FileHandle)
end;

procedure TForm1.Timer1OnTimer(...);
begin
Writeln(FileHandle, Memo1.Lines.Text)
end;

Timet1.Interval ustaw na 10601000

Niestety Delphi wywala blad:

[Error] Unit1.pas(362): Undeclared identifier: 'AppendFile'

=P

AppendFile(FileHandle) --> Append(FileHandle)

hehe compilowalo sie =]

I o co chodzi z tym 10601000 w "zegarku"

Probowalem tak wpisac ale mi mowi ze sie nie da =[

chodzi o 60000 (słownie: sześćdziesiąt tysięcy)

heheh ale mi taka liczba nie wchodzi =P wyskakuje blad =[

jak chcesz co 10 s to interval na : 10000

pamietaj 1 s = 1000 interval

Dzieki ale i tak juz sobie poradzilem zamiast do "zegara" dalem do Form.Destroy =]
I tez jest dobrze =]