Textedittutorial Problem

[Chegga]

Hi deinmeister,

es wäre schön, wenn du den Delphi Tag verwenden würdest für den Delphi-Code.
Also anstatt:

Code:

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

so:

Delphi-Quellcode:

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

MfG Marc