كيف استخرج اسم الملف وامتداده ؟

[mohfa]

هذا حل بالسريع على محرر النصوص Notepad لاني لااملك الدلفي هنا :

يمكنك التصريح ب Global Var وليكن سلسلة نصية تحفظ فيه إسم و مسار الملف

* لماذا استعمات مكونين اثنين من ال TOpenDialog , مكون واحد يفي بالغرض , ومن المستحسن ان تنشئه في وقت التنفيذ RunTime وتحرره طبعا .
انظر الكود

PHP كود :

var
  Form1: TForm1;
  _FileName,FileName:String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
         if opendialog1.Execute then
         _FileName := opendialog1.FileName;
         edit1.text:= _FileName;
         button4.caption :=ExtractFileName(_FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
         if opendialog1.Execute then
         Filename := opendialog1.FileName;
         edit2.text:= Filename;
         button5.caption := ExtractFileName(Filename);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(0, 'open', pChar(_FileName), nil, nil, SW_SHOW);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(0, 'open', pChar(FileName), nil, nil, SW_SHOW);
end;