КАК Записать в .txt ???????

[Alexei_3105]

Как сделать чтобы по кнопке формировался файл такого типа:
Сформированные строки в 1.txt
#КАССДОК
ДАТА : 'данные из DateTimePicker'
НОМЕР : 'данные из Qwery'
СЧЕТ1 : 'данные из ComboBox'
СЧЕТ2 : 'данные из ComboBox'
#END

[4ok]

Я бы зделал так! Можете сказать что я дурак, я знаю)


Береш мемо. По клику:
....
Memo1.lines.add('#КАССДОК');
Memo1.lines.add('Дата'+Данные из дейтпикер);
Memo1.lines.add('Номер'+Данные из квери);
Memo1.lines.add('Счет1'+Данные из комбобокс);
Memo1.lines.add('Счет2'+Данные из комбобокс);
Memo1.lines.add('#END');
....

memo1.lines.safetofile(1.txt);

....


Как то так)))) Заодно просмотриш, что написал)

[Alexei_3105]

Сейчас попробую. чет не работает -- memo1.lines.safetofile(1.txt); ????

[4ok]

Может я ошибку зделал в синтаксисе.... Через Точечку попробуй..оно ж само собой подсказует.. или Лапки " в дужках.....(одиночные)

[Alexei_3105]

Сообщение от 4ok

Может я ошибку зделал в синтаксисе.... Через Точечку попробуй..оно ж само собой подсказует.. или Лапки " в дужках.....(одиночные)

А как изменить формат даты с 11.11.1111 на 11/11/1111
formatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
не хочет работать

[4ok]

Возьми сначало дей, манс, еар, и потмо склей поочередно, между ними вставляя слеши)

[ArtGrek]

в самом верху есть раздел основы делфи, там очень много полезнои инфы, с примерами, пояснениями, и легко читаемым текстом

Пример кода : Замена сивола разделителя отображения даты
var
  mydate : TDateTime;
begin
  myDate := EndOfAMonth(2007, 9); // 9 Февраля 2007 23:59:59.999
  ShowMessage('Дата     = '+DateTimeToStr(myDate));
  DateSeparator := '_';           // Замена разделитель даты /
  ShowMessage('Дата теперь = '+DateTimeToStr(myDate));
end;

Дата = 09/02/2007
Дата теперь = 09_02_2007

[4ok]

Я и не знал! +1

[mobilitialex]

как проверить условие файл пуст или отсутствует

[ЗаводнойАпельсин]

if fileexists(путь к файлу)