in textdateien schreiben

[zecke]

nabend allesamt,

ich woltle mal fragen ob jemand weiß, wie ich es hinbekomme, eine zeile text zu einer bereits bestehenden textdatei hinzuzufügen ohne sie neu zu schreiben oder andere zeilen zu überschreiben?? die datei soll die gleiche bleiben.
also 'ne textzeile in eine datei einfügen...ungefähr

genauso brauch ich dann sowas wie zeilen (string orientiert) auszulesen oder eine zeile suchen in einer textdatei??

wäre nett, wenn da jmd was zu weiß, weil ich da nichts gefunden habe.



MfG
LoRd

[fkerber]

Hi!

Du wirst wohl nicht umhinkommen, die Datei zu laden und wieder zu speichern, damit Delphi weiß, wo die Datei zu Ende ist.

Sollte ich irren, einfach in der Luft zerreißen und dann verbessern

Ciao fkerber

[choose]

*zerreiß fkerber in der Luft*

Aus der OH zu Append:

Zitat von OH:

Die Prozedur bereitet eine vorhandene Datei auf das Anhängen von Textdaten vor. [..]
Mit Append können Sie sicherstellen, dass eine Datei [..] geöffnet und der Dateizeiger auf das Ende der Datei gesetzt wird. F ist eine Textdateivariable [..]

[RobertS]

Zitat von fkerber:

Hi!

Du wirst wohl nicht umhinkommen, die Datei zu laden und wieder zu speichern, damit Delphi weiß, wo die Datei zu Ende ist.

Sollte ich irren, einfach in der Luft zerreißen und dann verbessern

Ciao fkerber

WriteLn()

[fkerber]

Man lernt nie aus.
Danke für die Berichtigung. Muss ich mal in einigen Programmen ändern. Die Funktion war mir fremd.

Ciao fkerber

[markon]

doch man kann an eine textdatei ohne sie zu laden anhängen:

Delphi-Quellcode:

var datei:textfile;
 procedure anfuegen_an_ne_textdatei;
begin
 try
  assignfile(datei, 'egal.txt');  { bestehende text-datei }
  append(datei);
  writeln(datei, 'String, der angehängt werden soll...');
  flush(datei);  { ensures that the text was actually written to file }
 finally
  closeFile(datei);
 end;

[zecke]

lol danke für die antworten werde es testen, aber die erste antwort von fkerber war sehr interessant. ich mein ich aheb schon eine datei und speicher da auch sachen drin und laden kann ich auch wollte nur den einen befehl wissen und writeln() ist schon nais THX für den befehl und die procedure!

[SirThornberry]

Man könnte auch eine Datei einfach über einen Stream öffnen. Dann
Stream.position := Stream.size;
Stream.write(Buffer, length(buffer));

[zecke]

mm danke - allerdings hab ich mit stream absolut nichts am hut, weiß nicht was das ist etc. da du sagtest "man könnte auch" werde ich die andre sache vorher probieren ;o) danke schöün

[zecke]

ein seltsames problem habe ich da hoffe jmd weiß auch da was:

es gilt Filename=edit2.text+' '+edit1.text nur so zur information...

es macht alles was es soll, aber es soll die sachen in eine neue file speichern, deswegen habe ich die file zuerst gelöscht, dann soll er alles in eine datei speichern die halt genauso heißt. das problem ist: er löscht zwar die datei, aber danach schreibt er alles in die datei hinzu anstatt eine neue zu machen. er löscht sie also nicht wirklich scheinbar....aber hier der code.

Code:

procedure TForm1.Button7Click(Sender: TObject);
var Path, Filename : string;
begin
Path := ExtractFilepath(ParamStr(0));
Filename := Path + Listbox1.Items[Listbox1.ItemIndex] + '.adr';
Memo1.Lines.LoadFromFile(Filename);
Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add(Edit2.Text);
Memo1.Lines.Add(Edit3.Text);
Memo1.Lines.Add(Edit4.Text);
Memo1.Lines.Add(Edit5.Text);
Memo1.Lines.Add(Edit6.Text);
Memo1.Lines.Add(Edit7.Text);
Memo1.Lines.Add(Edit8.Text);
Memo1.Lines.Add(Edit9.Text);
Memo1.Lines.Add(Edit10.Text);
Memo1.Lines.Add(Edit11.Text);
Memo1.Lines.Add(Edit12.Text);
DeleteFile(Filename);
Showmessage('testbox gelöscht');
Memo1.Lines.SaveToFile(edit2.text+' '+edit1.Text+'.adr');
Listbox1.Items.SaveToFile('adrliste.adr');
end;