Hola jonydread.
Te pongo un ejemplo muy simplificado para aclararte como es el funcionamiento:
Código Delphi
[-]
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
with FileOpen1 do
begin
Dialog.DefaultExt := '*.TXT';
Dialog.Filter := 'Archivos de texto (*.txt)|*.TXT';
if not Assigned(OnAccept) then FileOpen1.OnAccept := FileOpen1Accept;
end;
with FileSaveAs1 do
begin
Dialog.DefaultExt := '*.TXT';
Dialog.Filter := 'Archivos de texto (*.txt)|*.TXT';
if not Assigned(OnAccept) then FileSaveAs1.OnAccept := FileSaveAs1Accept;
end;
Memo1.Clear;
end;
procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
end;
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
Memo1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
end;
...
Saludos
Edito: No estaba el mensaje de
WkaymQ48 mientras acomodaba este, pero nos referimos a lo mismo.