[Newmo]

Вообщем нужно что бы создавался тхт файл с именем Edit1.Text

Код:

AssignFile(f,GetCurrentDir + '\БД\Резюме\newresume.txt');
 Rewrite(f);
 writeln(f,'Фамилия:'+Edit1.text);
 Append(f);
 writeln(f,'Имя:'+Edit2.text);
CloseFile(f);

Т.е newresume.txt переименовывался в текст который вписан в Edit1
Помогите пожалуйста

[Marvel]

Код:

AssignFile(f,GetCurrentDir + '\БД\Резюме\' + Edit1.Text + '.txt');

так чтоли?

[Newmo]

почти, только еще расширение .txt

[Marvel]

поправил код, смотри выше

[Newmo]

чет я туплю, спасибо тебе большое))