Entwickler-Ecke

Dateizugriff - Text an Datei anhängen.


Scotch - Di 19.08.03 03:17
Titel: Text an Datei anhängen.
Hallo,

ich habe eine Text Datei und möchte an deren inhalt noch weitere Zeilen aus einem String anhängen.

Hiermit

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F,'C:\Edit.txt');
  {$I-}
    ReWrite(F);
  {$I+}
  try
    if IOResult=0 then
      WriteLn(F, texte);
  finally
    CloseFile(F);
  end;
end;

wird die letzte eingabe immer wieder über schrieben.

Cu Scotch

Moderiert von user profile iconTino: Delphi-Tags hinzugefügt & Titel geändert.


DaRkFiRe - Di 19.08.03 03:24
Meine Delphi-Hilfe aus der 2.0er Version (nur zum Schnellstart und Schnell-Nachsehen) verrät mir folgendes: APPEND

Die Delphi-Hilfe: Kram, was?


Tino - Di 19.08.03 13:48
Hallo!

Statt

Delphi-Quelltext 
1:
 
ReWrite(F);

musst du

Delphi-Quelltext 
1:
 
Append (F);

benutzen.

Gruß
Tino


DaRkFiRe - Di 19.08.03 14:39
Sarichdoch! :D


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!