Форум АНТИЧАТ - ? delphi. Как сохранить содержимое memo в txt файл?

? delphi. Как сохранить содержимое memo в txt файл?

22.03.2006, 13:01

donetsk

Участник форума

Регистрация: 30.01.2006

Сообщений: 176

Провел на форуме:
607472

Репутация: 29

? delphi. Как сохранить содержимое memo в txt файл?

В общем задумка такая написать програмку, которая будет закидываться клиенту в качестве полезной программы, ну например сканирование сети на поиск игровых серверов с всякими прикольными функциями

Но програма будет включать в себя что-то типо среды разведчика .
Её цель узнать mac и айпи узера.
Как она будет это делать:
1.Красивая оболоча (форма) содержащая функции поиска игровых серверов в сети
2.Скрытое мемо поле , в которое будет выводиться содержимое cmd , а конкретнее ip config/all
3.Содержимое ipconfig будет храниться в мемо(скрытом мемо)
4.Содержимое мемо будет записываться в тексовый файл лог файл красио обозваный например c:\windows\ipconfig.log
Те гдубо говоря запишим содеримое всего ipconfig В лог файл чтобы никто не догадался обозвали его круто ipconfig.log
5.Полученый файл отправим по почьте , на кодировку всё равно, нам главное mac и айпи

В процессе разработки сделал вывод содержимого мемо, скрыл это содержимое, а вот как сохранить содержимое из мемо в txt файл не знаю

не получается

пробую так:
Проблема с которой столкнулся

Код:

 var 
    Form1: TForm1; 
    Fo,Fi :textfile; 
    var s : string; 
    i : integer; 
  implementation 


  {$R *.dfm} 


  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
  assignfile(Fo, ' d:\xxx\=file1=.txt ' ); 
  rewrite(Fo); //создаем файл 
  for i:=0 to memo1.Lines.Count-1 do 
  writeln(Fo,memo1.Lines[i]); //записываем текст в него из МЕМО 
  closefile(fo); //и закрываем 
  button2.Enabled:=true;//теперь можно 2-ю кнопку использовать 
  end;