dopisywanie do pliku

Hym jak dopisać do pliku jakąś linie z memo1????

jeśli do pliku tekstowego to:
AssignFile(F,'text.txt');
Reset(F);
Append(F);
Writeln(F,Memo1.Lines.Strings[2]);

tylko że ten tekst ma być zapisywany do ostatniej lini która jest niewiadoma a poza tym coś w tym kodzie nielata lub trzeba coś dopisać do users ale co no i jak dać żeby zapisywało do ostatniej lini ???

Reset(F) jest niepotrzebne. ZAMIAST Reset ma byc Append. Append dla pliku txt dziala jak Reset z tym, ze plik jest otwarty write only ORAZ wskaznik jest ustawiony na koniec pliku.

Moze by tak do helpa czasem zajrzec????

zrobiłem teraz coś takiego no i niechodzi :

procedure AssignFile(var F; FileName: string);
begin
AssignFile(F,'text.txt');
Append(F);

zrobiłem teraz coś takiego no i niechodzi :
......

procedure TForm1.Button1Click(Sender: TObject);
var f : TextFIle;
begin
AssignFile(f, 'c:\sikam.txt');
If FileExists('c:\sikam.txt') then
Append(f)
else
Rewrite(f);
WriteLn(f,Memo1.Lines.Strings[Memo1.Lines.Count-1]);
CloseFile(f);
end;

no ino slesze powycinało : )

//Nie cytuj calych postow...stosuj delphi zamiast code...piszac symbol \ stawiaj dwa, nie jeden

<quote>zrobiłem teraz coś takiego no i niechodzi :

procedure AssignFile(var F; FileName: string);
begin
AssignFile(F,'text.txt');
Append(F);

no i poza tym F jako TextFile !

[Dopisane]

<font color="green">tylko że ten tekst ma być zapisywany do ostatniej lini która jest niewiadoma</span>

właśnie Append przenosi na koniec pliku !

[QUOTE]tylko że ten tekst ma być zapisywany do ostatniej lini która jest niewiadoma

właśnie Append przenosi na koniec pliku !</quote>

A jeśli niewiadoma jest linia w memo to wtedy:

memo1.lines.strings[memo1.lines.count-1] i cała filozofia...
Ta instrukcja 'pokazuje' na ostatnią linię w memo.

<font color="green">memo1.lines.strings[memo1.lines.count-1] i cała filozofia...
Ta instrukcja 'pokazuje' na ostatnią linię w memo.
</span>

ehh.... ale tu chodzi o plik tekstowy a nie memo

ehh.... ale tu chodzi o plik a nie memo

??? teraz to juz namieszałes

co racja to racja ale coś źle zapisuje bo mi musi zapisać wszystki linie z memo1 do 1 lini ( końcowej) w pliku txt ??
Ai oto co mi wyszło :

procedure TForm1.Zapisz2Click(Sender: TObject);
var
f : TextFile;
katalog : String;
S : String;
S2 : String;
INI : TINIFile;
begin
katalog:=ExtractFileDir(Application.ExeName);
S:=Memo1.Lines.Text;
S:=StringReplace(S, #13#10, #32, [rfReplaceAll]);
Memo1.Text:=S;
INI := TINIFile.Create(katalog+'\program.ini');
S2 := INI.ReadString('wartość','01','');
AssignFile(f, S2);
if FileExists(S2) then
Append(f)
else
Rewrite(f);
WriteLn(f,Memo1.Lines.Strings[Memo1.Lines.Count-1]);
CloseFile(f);
end;

przy czym ,że ścieżka do pliku znajduje się z ini (wszystko jest wpożo ale niezapisuje wszystkiego do 1 lini końcowej ) ^^^ [???]

<font color="green">memo1.lines.strings[memo1.lines.count-1] i cała filozofia...
Ta instrukcja 'pokazuje' na ostatnią linię w memo.
</span>

ehh.... ale tu chodzi o plik tekstowy a nie memo

No więc zapisujesz właśnie tą linię do memo...
instrukcja APPEND DOPISUJE DO PLIKU TEKSTOWEGO

przy czym ,że ścieżka do pliku znajduje się z ini (wszystko jest wpożo ale niezapisuje wszystkiego do 1 lini końcowej ) ^^^ [???]

Czy Ty chcesz, żeby dopisało Ci całą zawartość memo do pliku tekstowego?

Aha... I wg mnie lepiej byłoby:

memo1.text

zamiast

memo1.lines.text

jakoś mi sie to udał zrobić a mianowicie tak (kodzik może komuś sie przyda)

procedure TForm1.Zapisz2Click(Sender: TObject);
var
f : TextFile;
katalog : String;
S : String;
S2 : String;
INI : TINIFile;
begin
katalog:=ExtractFileDir(Application.ExeName);
S:=Memo1.Text; //

Mam tylko jedno pytanko... Po co używać ExtractFileDir (czy jakoś tak), skoro jak podamy nazwę pliku np. "plik.txt" bez podania ścieżki, to zapisze nam w katalogu, w którym znajduje się program???

LOL LOL LOL LOL LOL
Nie mogę :)

Cały topic to chyba jakiś głupi dowcip.

Co do ostatniego pytanie: zapisze w aktualnym katalogu, a nie w katalogu, w którym znajduje się program.