Append

procedure TForm1.Button1Click(Sender: TObject);
 var Plik : TextFile;
     dane : string;
begin
AssignFile(Plik, 'Dane.txt');
Append(Plik);
dane := Edit1.Text;
writeln(Plik, dane);
end;

end.

czy ktoś mi powie co tu jest źłe ?? bo programnie działa z tym ze plik Dane.txt jest w folderze już :-/

zapomniałeś o CloseFile...

ps. Nie rozumiem twojej wypowiedzi

Tak jak powyżej.
CloseFile(Plik); - i wszystko powinno być OK

No tak ale jak wpisywałem CloseFile(Plik); to mi nie chciało kompilować coś .. :-/

teraz jednak ort! jeszcze raz i tym razem zadziałało ... ciekawe czemu wcześńiej nie działało bo na perwno wszytsko dobrze było. :)