Nazwa pliku .txt

[chudy1993]

Co trzeba zrobić, aby nazwą pliku .txt była aktualna data i czas?
Mam taki kodzik:

a:=TimeToStr(Time);

b:=DateToStr(date);

c:='C:';

d:=' ';

e:=c+a+d+b+f;

f:='.txt';

Label1.Caption:=e;

AssignFile(plik, e);

Rewrite(plik);

CloseFile(plik);

i mi to nie działa. czemu?

 

[M1ch00]

e:=c+a+d+b+f;
f:='.txt';
chyba troche nei ta kolejność - to 1. po 2 jak wygląda ciąg zwrócony przez
a:=TimeToStr(Time);
b:=DateToStr(date);
? czy nie jest przypadkiem niezgodny z formatem nazyy pliku?
Wyswietl najpierw ten ciąg i zastanów się, czy taki plik moze istnieć.

 

[chudy1993]

Czy ktoś mi może poradzić na co zmienić te znaki? Może jakiś kodzik?

 

[Mo4x]

procedure Save();

var

  D, T : String;

begin

  D := FormatDateTime('dd mmmm yyyy', Now);

  T := StringReplace(TimeToStr(Time),':',';',[rfReplaceAll]);

  with Form1 do Memo1.Lines.SaveToFile(T+', dnia '+D+'.txt');

end;

To taki przykład. Zamieniłem dwukropki w czasie na średniki.