Помогите с делфи

Question

Какой код нужно написать в delphi 7, чтобы при нажатии на кнопку создовался файл 1.txtпо адрессу c:/

Наталья Лагутина · Accepted Answer

var txt: TextFile;
AssignFile(txt,'c:\1.txt');
Rewrite(txt);
CloseFile(txt);

***анастасия *** · Answer

var f: textfile;
begin
 assignFile(f,'c:/1.txt');
 rewrite(f);
 closeFile(f);

end;

возможно не хватит прав на создание файла в корне диска С.

Алишер Шомурадов · Answer

with TStringList.Create do
try

SaveToFile('c:\1.txt');

finally

Free;

end;

_

Есть еще функция API CreateFile, но там куча совершенно ненужных для этой простой задачи параметров. Хотя формально, конечно, правильнее было бы использовать именно ее.