Textedittutorial Problem

[Die Muhkuh]

Hi,

Delphi-Quellcode:

procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
  begin
    Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
  end else
  begin
    if SaveDialog1.Filename<>'' then
      begin
         Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
      end else
      begin
        if SaveDialog1.Execute then
  begin
    if SaveDialog1.Filename<>'' then
    begin
      Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
      OpenDialog1.Filename:='';
    end;
end;
end;
end;

procedure TMainform.Drucken1Click(Sender: TObject);[/color]
begin
  Richedit1.Print('');
end;

procedure TMainform.Beenden1Click(Sender: TObject);
begin
  MainForm.Close;
end;