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