Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Дописать в файл

Автор: Recew 25.6.2010, 19:37

Нужно дописать данные в файл.
Проовал так:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
assignfile(fl,'C:\1.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if length(memo1.text)>10 then  begin
write(fl);
memo1.Clear;    end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closefile(fl);
end;

Но во время исполнения программы возникает ошибка.
Может есть другой способ?

Автор: Данкинг 25.6.2010, 20:13

Цитата(Recew @ 25.6.2010, 20:37

)

Но во время исполнения программы возникает ошибка.

Какая ошибка?

Автор: morpheyushka 25.6.2010, 21:15

а в 10 строчке что пишется в файл интересно?
может там в функции write переменной не хватает?

Автор: ~FoX~ 26.6.2010, 01:59

Цитата(Recew @ 25.6.2010, 20:37

)

Может есть другой способ?

Код


Memo1.Lines.SaveToFile('c:\file.txt');

Автор: Данкинг 26.6.2010, 02:00

~FoX~, дописать, а не сохранить. smile

Автор: ~FoX~ 26.6.2010, 02:04

Данкинг, Соки.... Три утра, уже походу сплю )))))

Автор: chip_and_dayl 26.6.2010, 09:11

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
assignfile(fl,'C:\1.txt');
Append(f1);
end;

Автор: Recew 26.6.2010, 11:11

Всем спасибо, я сделал так:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   TextFile: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
TextFile.Add(memo1.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TextFile.SaveToFile('C:\1.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
TextFile := TStringList.Create;
  if FileExists('C:\1.txt') then
    TextFile.LoadFromFile('C:\1.txt')
  else
    TextFile.SaveToFile('C:\1.txt');
end;

end.