Einzelnen Beitrag anzeigen

Benutzerbild von St.Pauli
St.Pauli

Registriert seit: 26. Dez 2004
351 Beiträge
 
Delphi 7 Personal
 
#5

Re: Aus Editfeldern in txt-datei speichern...

  Alt 5. Jan 2006, 14:42
Die Forensuche hätte dich da schon weiter gebracht...

Delphi-Quellcode:
function DateiInStringLaden(Datei : string) : string;
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;
  Inhalt.LoadFromFile(Datei);

  SetLength(Result, Inhalt.Size);
  Inhalt.Read(Result[1], Inhalt.Size);

  Inhalt.Free;
end;

procedure StringInDateiSpeichern(Datei, Uebergabe : string);
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;

  Inhalt.Write(Uebergabe[1], Length(uebergabe));


  Inhalt.SaveToFile(Datei);
  Inhalt.Free;
end;
StringInDateiSpeichern(Edit1.Text + #13#10 + Edit2.Text..., Edit6.Text); Sollte Funktionieren...
Gruß St.Pauli
  Mit Zitat antworten Zitat