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 that you have read and understand our privacy policy and code of conduct.

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