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!
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 =]