关于字符串处理，如何获的文件名,高分在线等待！！谢谢

Question

mystring:='C:\Documents and Settings\miaozongli\桌面\temp\2001产品45\鄂DGQ-2001-0010.txt';得到filename:='鄂DGQ-2001-0010';
file:='鄂DGQ-2001-0010.txt';谢谢，为什么只能从dlg.filename中得到mystring而得不到filename或file

Answer 1

你用 File := ExtractFileName(mystring);
就得到了文件然后用 
 i := Pos('.', File);
 FileName := LeftStr(File, i);
就得到了文件名

Answer 2

同意hansome(连环) 的做法。

Answer 3

谢谢！
是FileName := LeftStr(File, i-1);
而不是
FileName := LeftStr(File, i);
马上给分

Answer 4

File:=ExtractFileName(dialog1.fileName)得文件全名
Filename:=changeFileExt(File,'')文件名不含扩展名
还有extractfilepath //得路径extractfileExt//得扩展名ExtractFileDir //得目录Extractfiledrive得盘符等//