用ExtractFileName函数,例如:
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
sFileName := ExtractFileName(SaveDialog1.FileName);
……
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
sFileName := ExtractFileName(SaveDialog1.FileName);
……
str:string;
s1:string;
begin
inherited;
if OpenpictureDialog1.Execute then
begin
str:=extractfilename(Openpicturedialog1.filename); //这里取得文件名
s1:=copy(str,0,length(str)-4); //去掉小数点后面的扩展名。end;