Savedialog speichern problem

[bushido1221]

Aloa :)

Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    MainMenu1: TMainMenu;
    est1: TMenuItem;
    ffnen1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Speichern1: TMenuItem;
    procedure Speichern1Click(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ffnen1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
    if FileExists(OpenDialog1.Filename) then
begin
Richedit1.Lines.loadfromfile(opendialog1.Filename);
end
else
Application.MessageBox ('Die Datei wurde leider nicht gefunden.','Datei nicht gefunden',0+16);
end;
end;





procedure TForm1.Speichern1Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
if savedialog1.Filename<>'' then
begin
richedit1.lines.savetofile(savedialog1.filename);
end;
end;
end;

end.

Ja funktioniert auch soweit :) Auser das Speichern wenn ich das speicher kommt dieser Text raus :

Delphi-Quellcode:

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil Tahoma;}}
\viewkind4\uc1\pard\f0\fs16 Tasasda\f1 
\par }

[mkinzler]

Siejt doch grundsätzlich ok aus. wie sah die Quelldatei aus?

[bushido1221]

Der Text in dem richedit war Tasasda :oops:

[Balu der Bär]

Auch wenn ich nicht weiß was Tasada ist, versuche mal vor dem Speichern

Delphi-Quellcode:

Richedit1.PlainText := true;

aufzurufen.

[bushido1221]

Jetzt gehts :)

[Balu der Bär]

Vielleicht noch zur Erklärung: Du wolltest die Datei ja als reinen Text abspeichern. Das Richedit arbeitet aber als RTF-Datei, d.h. wenn du die Datei abspeicherts werden sämtliche Formatierungen usw. auch mit abgespeichert. Durch die Eigenschaft Plaintext wird nur der eigentliche Text abgespeichert.

[inherited]

Wenn du das sowieso nicht brauchst, schau dir mal die TMemo-Komponente an. Die ist schlanker und ignoriert formatierungen.