怎么取opendialog1.filename的文件名? 如:opendialog1.filename:='c:\data\ddd.txt'我要取结果'ddd'

Question

ExtractFileName 函数 返回文件名 ExtractFileExt 函数 返回文件的后缀 
ExtractFilePath 函数 返回指定文件的路径 

Answer 1

Extractfilename(opendialog1.filename);

Answer 2

我不是很明白你的意思，看看下面的代码能帮你吗？
procedure TForm1.Button1Click(Sender: TObject);
begin
     opendialog1.Execute;
     edit1.text:=Extractfilename(opendialog1.filename);
end;

Answer 3

var x:string;
    y:integer;
x:= ExtractFilename(opendialog1.filename);  //ddd.txt
y:= length(x);Results := copy(x,1,y-4);