Ich möchte ca. 10 Strings und den Inhalt eines oder mehrerer RichEdit's in eine Datei hintereinander speichern.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Save1Click(Sender: TObject);
begin
If savedialog1.filename='' then
SaveAs1Click(sender)
else
RichEdit1.lines.SaveToFile(savedialog1.filename);
end;
procedure TForm1.SaveAs1Click(Sender: TObject);
begin
If savedialog1.Execute=true then
RichEdit1.lines.savetofile(savedialog1.filename);
end; |
So kann ich zwar das RichEdit speichern, aber nich die Strings
ich habe hier auch schon in der FAQ etwas gelesen von String->Datei, aber die dort angebene Prozedur krieg ich mit dem Save1Click nicht aufgerufen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure SaveStringToFile (Filename, SaveString: string);
var
fs:TFileStream;
begin
try
if SaveString <> '' then
fs.Write (SaveString[1], Length (SaveString));
finally
fs.Free;
end;
end; |
Hätte ansonsten versucht die Strings und die RichEdits zusammenzufügen zu einem String...
Ich bin nicht sehr bewandert in den tieferen Gefilden von Delphi, also bitte keine zu abgehobenen Kommentare.
Danke schon mal im Voraus.
MfG M
Moderiert von 
UGrohne: Code- durch Delphi-Tags ersetzt.
