Aloa

Quelltext:

zusammenfalten · markieren

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 :

markieren

Delphi-Quellcode:

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

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

Der Text in dem richedit war Tasasda

Auch wenn ich nicht weiß was Tasada ist, versuche mal vor dem Speichern Richedit1.PlainText := true; aufzurufen.

Jetzt gehts

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.

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