Speichern als *.rtf aus RichText-Feld

[Jansteger]

Hi,

Ich möchte Text aus einem RichText-Feld als RTF-Dokument speichern (*.rtf). Ich habe als Filter rtf eingegeben.

Wenn ich das Dokument jetzt speicher, ist es aber kein RTF-Dokument.

Wäre schön, wenn mir jemand helfen könnte!!
MfG

[zeras]

Hallo,

nur den Filter zu setzen, reicht nicht aus. Dein Dialog weiß nichts davon, was gespeichert werden soll.

Wie speicherst du denn das Feld?

RichEdit1.Lines.SaveToFile(); So?

[Jansteger]

Ja,
So ist der Code bei mir (Das Feld heißt Text).

Delphi-Quellcode:

procedure TForm8.Speichern1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Text.Lines.SaveToFile(SaveDialog1.FileName);
end;

[DeddyH]

Ist PlainText des RichEdits gesetzt? Oder geht es nur um die Dateiendung?

[Jansteger]

Es geht nur um die Dateiendung (*.rtf)

[zeras]

Zitat von Jansteger:

Es geht nur um die Dateiendung (*.rtf)

Was meinst du damit?
Fehlt einfach nur die Dateiendung?
Wenn dem so ist dann nutze ChangeFileExt, um die Dateiendung rtf zu haben.

[Jim Panse]

Vermutlich DefaultExt im SaveDialog nicht gesetzt.

[Jansteger]

Ich habs geschafft!

[DeddyH]

Delphi-Quellcode:

procedure TForm8.Speichern1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Text.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName, '.rtf'));
end;

[zeras]

Zitat von Jansteger:

Ich habs geschafft!

Bitte poste dann deine Lösung, damit auch die nächsten Hinweise haben, was falsch bzw. nicht korrekt war.