dopisywanie do pliku

0

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

0

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

0

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 ???

0

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????

0

zrobiłem teraz coś takiego no i niechodzi :

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

0

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

0
<quote>zrobiłem teraz coś takiego no i niechodzi : procedure AssignFile(var F; FileName: string); begin AssignFile(F,'text.txt'); Append(F);
0

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 !

0

[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.

0

<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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0