SaveDialog с функцией

[Афанасий[vedma]]

На форме есть Listbox1, Button1 и SaveDialog1. Нажимаю на кнопку и SaveDialog должен сохранить содержимое ListBox в *.txt файл. И самое главное - файл создается автоматически, и надо привязать функцию взятия системной даты - например: сегодняшняя дата 24.11.11 и имя файла 24.11.11 и.т.д

ListBox1.Items.SaveToFile(//здесь функция типа GetSystemDate)

[Freezer]

Зачем вам SaveDialog1 если вы сами имя файла формируете?? Но если нужно достать поточную дату, пожалуйста:

ListBox1.Items.SaveToFile(DateToStr(now()) + .txt');

[Афанасий[vedma]]

Спасибо=) очень помог кстати - когда я еще сохраняю, то програмка зависает=( как сделать шоб при сохранении текстовой файл был таким (25.11.11, 25.11.11(2), 25.11.11(3)) ?

[Freezer]

Только ручками:

  s := DateToStr(now());
  if FileExists(s + '.txt') then begin
    i := 1;
    while (FileExists(s + '(' + inttostr(i) + ').txt')) do
      inc(i);
    s := s + '(' + inttostr(i) + ')';
  end;
  ListBox1.Items.SaveToFile(s + '.txt');