Date to textfile

[T-bear]

How do i write the systemdate into a textfile?
Thanks!

[typo]

Code: [Select]

var
  fs :TFileStream;
  s :string;
begin
  s := DateToStr(Now);
  fs := TFileStream.Create('file.txt', fmCreate);
  try
    fs.Write(s[1], Length(s));
  finally
    fs.Free;
  end;
end;     


[T-bear]

Thanks!
And how do i open the text in a textfile into a TMemo?

[typo]

Code: [Select]

Memo1.Lines.LoadFromFile('file.txt');