Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.05.2012, 17:56   #1
Roomaa
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 6
По умолчанию Вывод Мемо в текстовый документ

помогите... как вывести мемо в текстовый документ? есть этот код... вывод полей едит... нужно еще мемо... но никак не выводится.

Код:
begin
    AssignFile(F,'C:\Res.txt');
    Rewrite(F);
    writeln(F,'Вхідні дані :');
    writeln(F,'');
    writeln(F,'Стандартного зразка'+'       '+'межа витривалості :'+'        '+' круглого стрижня :');
    writeln(F,'345'+'                                       '+edit1.text+'                            '+edit6.text);
    writeln(F,'348'+'                                       '+edit2.text+'                            '+edit7.text);
    writeln(F,'341'+'                                       '+edit3.text+'                            '+edit8.text);
    writeln(F,'349'+'                                       '+edit4.text+'                            '+edit9.text);
    writeln(F,'343'+'                                       '+edit5.text+'                            '+edit10.text);



    Closefile(F);


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 17.05.2012 в 23:36.
Roomaa вне форума
Старый 17.05.2012, 18:46   #2
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

В Мемо:
Код:
Memo1.Lines.LoadFromFile('C:\Res.txt');
Из Мемо:
Код:
Memo1.Lines.SaveToFile('C:\Res.txt');
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Старый 17.05.2012, 19:02   #3
Roomaa
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 6
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
В Мемо:
Код:
Memo1.Lines.LoadFromFile('C:\Res.txt');
Из Мемо:
Код:
Memo1.Lines.SaveToFile('C:\Res.txt');


пишет, что процесс не может получить доступ к файлу, так как этот файл занят другим процесом
Roomaa вне форума
Старый 17.05.2012, 19:07   #4
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Весь код как делаешь покажи. Значит этот файл у тебя открыт в программе.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Старый 17.05.2012, 19:09   #5
Roomaa
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 6
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
Весь код как делаешь покажи. Значит этот файл у тебя открыт в программе.
Код:
Var
 F:TextFile;
begin
    begin
    AssignFile(F,'C:\Res.txt');
    Rewrite(F);
    writeln(F,'Стандартного зразка'+'       '+'межа витривалості :'+'        '+' круглого стрижня :');
    writeln(F,'345'+'                                       '+edit1.text+'                            '+edit6.text);
    writeln(F,'348'+'                                       '+edit2.text+'                            '+edit7.text);
    writeln(F,'341'+'                                       '+edit3.text+'                            '+edit8.text);
    writeln(F,'349'+'                                       '+edit4.text+'                            '+edit9.text);
    writeln(F,'343'+'                                       '+edit5.text+'                            '+edit10.text);

    Memo1.Lines.SaveToFile('C:\Res.txt');

    Closefile(F);
    ShowMessage('Дані збережено в файл - C:\Res.txt');
    end;
весь код слишком огромный... вот тот кусок где файл F использую...

Последний раз редактировалось artemavd; 17.05.2012 в 19:20.
Roomaa вне форума
Старый 17.05.2012, 19:22   #6
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

Не надо писать Assign и т.п. Просто добавляй строки в Memo и его сохраняй. Строки в Мемо добавлять можно так:
Код:
begin
 Memo1.Lines.Add(что-то тут 1);
 Memo1.Lines.Add(что-то тут 2);
....
 Memo1.Lines.SaveToFile('C:\Res.txt');
end;
Идея ясна?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума
Старый 17.05.2012, 19:25   #7
Roomaa
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 6
По умолчанию

Цитата:
Сообщение от artemavd Посмотреть сообщение
Не надо писать Assign и т.п. Просто добавляй строки в Memo и его сохраняй. Строки в Мемо добавлять можно так:
Код:
begin
 Memo1.Lines.Add(что-то тут 1);
 Memo1.Lines.Add(что-то тут 2);
....
 Memo1.Lines.SaveToFile('C:\Res.txt');
end;
Идея ясна?
без ассигна я же едиты не выведу.... а мне в один файл нужно и едиты и мемо вывести....

Последний раз редактировалось Roomaa; 17.05.2012 в 19:27.
Roomaa вне форума
Старый 17.05.2012, 19:28   #8
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Ну значит после вывода своих эдитов в файл вызывай CloseFile(F), при том до вызова SaveToFile().
_-Re@l-_ вне форума
Старый 17.05.2012, 19:33   #9
Roomaa
Новичок
Джуниор
 
Регистрация: 17.05.2012
Сообщений: 6
По умолчанию

Цитата:
Сообщение от _-Re@l-_ Посмотреть сообщение
Ну значит после вывода своих эдитов в файл вызывай CloseFile(F), при том до вызова SaveToFile().
Код:
      Var
  F:TextFile;

begin


    begin
    AssignFile(F,'C:\Res.txt');
    Rewrite(F);
    writeln(F,'Стандартного зразка'+'       '+'межа витривалості :'+'        '+' круглого стрижня :');
    writeln(F,'345'+'                                       '+edit1.text+'                            '+edit6.text);
    writeln(F,'348'+'                                       '+edit2.text+'                            '+edit7.text);
    writeln(F,'341'+'                                       '+edit3.text+'                            '+edit8.text);
    writeln(F,'349'+'                                       '+edit4.text+'                            '+edit9.text);
    writeln(F,'343'+'                                       '+edit5.text+'                            '+edit10.text);



    Closefile(F);
    Mmo1.Lines.SaveToFile('C:\Res.txt');
    ShowMessage('Дані збережено в файл - C:\Res.txt');
    end;
теперь выводит мемо, но едиты не выводит
Roomaa вне форума
Старый 17.05.2012, 19:35   #10
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Вот тут такая же проблема рассматривается.
_-Re@l-_ вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как вывести в текстовый документ? stdio Помощь студентам 17 25.02.2012 12:46
Delphi. Сохранение в текстовый документ. Волчица Помощь студентам 5 29.04.2010 01:44
Как откомпилировать текстовый документ Vitalyir84 Общие вопросы Delphi 9 15.02.2010 23:07
имена файлов в текстовый документ Mobile™ Операционные системы общие вопросы 7 02.11.2009 23:41
Вставка картинок в текстовый документ PONKA Общие вопросы Delphi 0 04.02.2009 12:54