var Ext: string; procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName); if OpenDialog1.Execute then begin Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Ext := ExtractFileExt(OpenDialog1.FileName); Label1.Caption := OpenDialog1.FileName; Label2.Caption := Ext; end; end; procedure TForm1.Button2Click(Sender: TObject); var NomFichier: String; begin SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName); if SaveDialog1.Execute then begin NomFichier:= SaveDialog1.FileName; if NomFichier[Length(NomFichier) - Length(Ext) + 1] <> '.' then NomFichier:= NomFichier + Ext; Memo1.Lines.SaveToFile(NomFichier); end; end;