Назвать файл

[-BlindGuardian-]

Доброго времени суток. Скажите, каким образом я могу заставить программу в каждой новой сессии создавать тхт файл с определенным именем? Т.Е пользователь допустим вводит свою фамилию, нажимает кнопку и в дирректории программы создаеться файл, названный его фамилией.
Какая команда отвечает за называние файла?

[Пепел Феникса]

при открытии файла вы задаете его имя.

[Sensizu]

Используйте процедуру CreateFile. А в пути добавляйте ExtractFilePath(Application.ExeName ). Это означает, что файл будет создавать в директории Вашей программы.

[Пепел Феникса]

Используйте процедуру CreateFile.

а зачем на АПИ переходить резко?(если не юзали конечно)
можно и паскалевским ReWrite..и через TFileStream с флагом fmCreate

[-BlindGuardian-]

Эм...знаю, выглядит по-дурацки, но получилось вот так, и вполне прекрасно создает:

procedure TForm3.RzShapeButton1Click(Sender: TObject);
var f1:textfile;
begin
name:=edit1.text;
surname:=edit2.text;
fname:=edit3.Text;
dc:=strtoint(edit4.text);
dm:=strtoint(edit5.text);
dy:=strtoint(edit6.text);
surname1:=(surname+'.txt');
FileCreate(surname1);
end;

Вопрос...а как мне теперь мой созданный файл привязать к переменной f? Ведь для стандартного assign надо знать путь к файлу в строковом виде...Может я конечно туплю...Короче, напишите мне пожалуйста оператор assign для данного случая.

[mihali4]

Читаем внимательно на темном фоне... А еще лучше - прочесть внимательно (с думой во взоре) правила раздела.
Если невнимательно - я укажу на ошибки, но это будет сопровождаться штрафом...