Memo speichern

[hansdieter11]

klappt alles, und das programm schmiert ab wenn man zeichen wie " / \ * < > usw in der memo benutzt, aber ich denke das ist normal?

das einzige ist halt wie gesagt das der name unter dem ich das programm abspeichere nicht übernommen wird und die textdatei gar keinen namen hat wie man auf dem screen sieht

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     IF SaveDialog1.Execute
     THEN
        begin
        Memo1.Lines.SaveToFile(OpenDialog1.FileName);
        end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     IF OpenDialog1.Execute
     THEN
        begin
        Memo1.Lines.Clear;
        Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
        end;
end;