lazarus/delphi (pascal) - 다음에 덮어 쓰지 않고 txt 파일에 쓰기

Question

나는 lazarus를 사용하고 있으며 프로그램이 닫힐 때 txt 파일에 정보를 저장하려고합니다. 그러나 프로그램을 다시 열 때마다 txt 파일에 이전에 있던 내용을 덮어 씁니다. 다음 줄에 쓰거나 매번 다른 txt 파일을 만드는 것이 좋습니다.

var 
    ... 
    s: TStringList; 

    s:= TStringList.Create; 
    s.Add(datetostr(now)); 
    s.SaveToFile(datetostr(now)+'.txt'); 
    s.Free; 

을하지만, 나에게 오류

Answer 1

을 제공 i'ts 당신이해야 할 모든 텍스트를 추가 한 후 추가 모드에서 파일을 열고입니다 : 이것은 내가 가지고있는 것입니다. 그것은 파일의 끝에 새로운 데이터를 저장합니다 :

AssignFile(tfOut, C_FNAME); 

    try 
    // Open for append, write and close. 
    append(tfOut); 

    writeln(tfOut, 'New data for text file'); 
    writeln(tfOut, 'New informtion should be at the end of the file.'); 

    CloseFile(tfOut); 

    except 
    on E: EInOutError do 
    writeln('File error. Elaboration: ', E.Message); 
    end; 

Answer 2

TStringList를를 사용하는 또 다른 방법은 다음과 같습니다

의 : TStringList를;

s : = TStringList.Create;

s.loadfromfile ('myfile.name');

s.Add (datetostr (now));

(또는 s.text = s.text lineending + + datetostr (현재))

s.SaveToFile ('myfile.name');

s.Free;