0

есть такой оператор Memo1.lines.savetofile...сохраняет строки с мемо в файл. Есть ли оператор, чтоб сохранять текст с Edit в файл без копирования в мемо?

2 ответа 2

0

А обычной записью в файл нельзя воспользоваться?

к примеру:

var f: TextFile;
    Text:string;

begin
  text := Edit1.Text;
  AssignFile(f, text);
  Rewrite(f);
  Closefile(f);
4
  • а как сохранить файл не в папке с проектом, а самому вblбрать место при сохранении?
    – kom93__
    15 дек 2011 в 14:19
  • AssignFile(f, 'С:\путь\к\моему\файлу');
    – Nofate
    15 дек 2011 в 14:22
  • 2
    использовать opendialog (нужно взять с вкладки dialogs) if not OpenDialog1.execute then exit; text := Edit1.Text; AssignFile(f, OpenDialog1.filename); Rewrite(f); writeln(f,edit1.text); Closefile(f);
    – KoVadim
    15 дек 2011 в 14:24
  • кстати ваш код создает файл с именем с Edit1, а не то что надо=(
    – kom93__
    15 дек 2011 в 14:42
0

Можно так:


begin
assignfile(output,' имя файла '); //связываем переменную output, которую обьявлять  не надо, с файлом//  
append(output); //открываем для записи файл//  
writeln(edit1.text);//выводим в файл текст//  
close(output);//закрываем файл//  
end;

Можно, но тогда перед запись надо будет осуществлять как:
writeln(f,edit1.text); //а у меня короче

2
  • не работает ваш код почему-то
    – kom93__
    15 дек 2011 в 14:39
  • А что именно не работает?
    – Nofate
    15 дек 2011 в 16:51

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.