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;