Дозапись в файл

[cezer]

Как сделать дозапись а не перезапись вот код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
i: Integer;
S: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
S.Add('мама.'+IntToStr(i)+'.папа.я');
i := i + 1;
S.SaveToFile('filename.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
S := TStringList.Create;
end;

end.

[QunneD]

Открываем файл, читаем содержимое, заносим в буфер, добавляем к буферу нужную информацию для дозаписи, и перезаписываем файл.

С WinAPI функциями проще, SetFilePointer с флагом FILE_END.

upd:

var
  S : TStrings;
begin
  S := TStringList.Create;
  try
  S.LoadFromFile('test.txt');
  S.Append('LOL');
  S.SaveToFile('test.txt');
  except
    on E: Exception do
    begin
      MessageBoxA(0, LPCSTR('Произошла ошибка'), LPCSTR('Ошибка'), MB_ICONERROR);
    end
  end;
  S.Free;
end;

[AlexMas]

var
F: TextFile;
begin
AssignFile(F,'c:\filename.txt');
Append(F);
Writeln(F, 'somthing');
CloseFile(f);
end;

[cezer]

Сообщение от AlexMas

var
F: TextFile;
begin
AssignFile(F,'c:\filename.txt');
Append(F);
Writeln(F, 'somthing');
CloseFile(f);
end;

не получается после переоткрытия программы начинает запись с 1 и так далее хотя запись остановилась на 7и. Вот Код

procedure TForm1.Button1Click(Sender: TObject);
var
f: Textfile; //çàäà¸ì ôàéëîâóþ ïåðåìåííóþ
s,e: string;


//çàäà¸ì ïåðåìåííóþ äëÿ õðàíåíèÿ ñòðîêè
begin
AssignFile(F,'D:\base.txt');
Append(F);
Writeln(F, IntToStr(Gi));
Gi:= Gi + 1;
closefile(f);

begin
e:=ipw1.LocalName;
s:=Edit1.Text;
assignfile(f, FileN);
append(f); //îòêðûâàåì ôàéë äëÿ çàïèñè
writeln(f,Label3.Caption+IntToStr(G i)+Label4.Caption+Label5.Caption+s+ Label5.Caption+e);
begin
ShowMessage('Çàïèñü Ñîçäàíà!!!');
closefile(f);
Edit1.text:=' ';
end;
Memo1.ScrollBars:=ssBoth;
Memo1.Lines.LoadFromFile(FileN);
Panel1.Caption:=Memo1.Lines[Memo1.Lines.Count-1];
end;
end;
end.

[AlexMas]

Точнее надо формулировать =)
Я так понял, нужно продолжить счет?

т.е.
было:
0
1
2
3

нужно, чтобы после открытия и дозапись продолжалась с 4?
т.е.
добавить
5
6
7
???

Если да, то читать последний символ в файле, переводить в int, присваивать Gi это значение и продолжать по накатанной.

[cezer]

Сообщение от AlexMas

Точнее надо формулировать =)
Я так понял, нужно продолжить счет?

т.е.
было:
0
1
2
3

нужно, чтобы после открытия и дозапись продолжалась с 4?
т.е.
добавить
5
6
7
???

Если да, то читать последний символ в файле, переводить в int, присваивать Gi это значение и продолжать по накатанной.

Да Алекс ты правильно понял только то что ты написал я пробовал у меня не получилось ошибки выдаёт(

[AlexMas]

Строка произвольная? Или только цифры? или только буквы и одна цифра\число?
просто, если просто продолжить счет, то ничего сложного, а если выхватывать число из строки, то парсер надобен )

upd: Делфи ставится(лет 5 не писал на нем=) ), как закончится, накидаю примерчик

[QunneD]

var
  S : TStrings;
begin
  S := TStringList.Create;
  try
  S.LoadFromFile('test.txt');
  S.Append(IntToStr(StrToInt(S.Strings[S.Count-1])+1));
  S.SaveToFile('test.txt');
  except
    on E: Exception do
    begin
      MessageBoxA(0, LPCSTR('Произошла ошибка'), LPCSTR('Ошибка'), MB_ICONERROR);
    end
  end;
  S.Free;
end;

[AlexMas]

Вариант для военных ))
На форме две кнопки и мемо
По первой открытие\создание файла
по второй добавление +1 ))
Более длинно, но для понимания происходящих процессов более очевидно, наверное. =)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F: TextFile;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile('c:\filename.txt');
  except
    AssignFile(F,'c:\filename.txt');
    Rewrite(f);
    Writeln(f, '0');
    CloseFile(f);
    Button1Click(Sender);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
lastInt: Integer;
li: string;
begin
  AssignFile(F,'c:\filename.txt');
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, li);
  end;
  try
    lastInt := StrToInt(li);
  Except
    lastInt := 0;
  end;
  lastInt := lastInt + 1;
  Append(F);
  Writeln(F, IntToStr(lastInt));
  CloseFile(f);
  Button1Click(Sender);
end;
end.