Entwickler-Ecke
Dateizugriff - an datei strings anhängen - wie?
bruder jonas - Mo 13.01.03 22:13
Titel: an datei strings anhängen - wie?
hi,
ich möchte an eine datei, strings anhängen.
wie mache ich das??
danke
bis11 - Mo 13.01.03 22:48
Hi,
Du lädst die Datei in ein Memo. Dann liest Du die Anzahl der Zeilen mit dem Befehl Count aus und fügst deinen neuen String mit dem Befehl Lines[anzahl+1] ein.
Tino - Di 14.01.03 09:32
Gut man kann ein Memo benutzen. Aber warum mit Count die Anzahl der Zeilen erfragen. Mit der Add-Methode kann man doch Strings anhängen.
Eventl. wäre es noch eine Möglichkeit kein Memo sondern eine tStringList zu benutzen.
Gruß
TINO
Klabautermann - Di 14.01.03 09:37
Hallo,
wenn es eine Textdatei ist, dann kannst du das mit klassischen Dateihandling recht einfach machen.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var f : TextFile;
begin
AssignFile(f, 'C:\Verzeichnis\Datei.txt'); // Dateivariable mit Datei verknüpfen.
{$I-}
Append(f);
{$I+}
IF (IORESULT <> 0) THEN
ShowMessage('Fehler beim Öffnen der Datei.')
ELSE BEGIN
WriteLn(f, 'Erste angehängte Zeile');
WriteLn(f, 'Zweite angehängte Zeile');
CloseFile(f); // Immer dran denken die Datei wieder zu schließen.
END; |
Gruß
Klabautermann
PS: von dem Memo würde ich abraten, da es mit Kanonen auf Spatzen geschossen ist.
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!