Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Работа с файлам


Автор: bubnoplyass 17.12.2007, 18:07
Народ помогите пожалуйста!
Нужно из Edit перенести информацию в txt фай , но так чтобы файл не обновлялся, а добовлялась новая строчка .. что-то у меня не получается может кто подскажет? буду очень блогодарен.
 
Код

var
f:SYSTEM.Text;
n:Integer;
begin

AssignFile(f,'D:\TRPO_proga\protokol.txt');
 Rewrite(f);
 WriteLn(f,Edit1.Text);


вот мой вариант но , он почему то ругается на Rewrite(f). smile 
Зарание спасибо!!!

Автор: VICTAR 17.12.2007, 18:36
Код

f: TextFile;
...
Append(f);

Автор: Pavelbej 17.12.2007, 18:36
Попробуй так:

Код

var str: TStrings;
      i: integer;
begin
       str:=TStringList.Create;
       try
       str.LoadFromFile( твой файл ); //загружаем файл
       str.Add( текст из Edit );
       str.SaveToFile( твой файл );
       finally
            str.Free;
       end;
end;

Автор: bubnoplyass 17.12.2007, 19:28
Большое спасибо!!!!!!!! smile  всё работает)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)