小问题：在“c:\ss.txt”要"ss"用什么函数啊？

Question

同上

Answer 1

s:=extractfilename('c:\ss.txt');
s1:=copy(s,1,pos(s,'.'));

Answer 2

uses SysUtils;
FileName := ExtractFileName(SaveDialog1.FileName);
FileName := ChangeFileExt(FileName , '');

Answer 3

var
str:string;
str:='c:\ss.txt';
str:=copy(str,4,2);

Answer 4

to Linux2001(我想买手提电脑啊！) ：
   如果是没有扩展名的文件名，会得到什么结果？

Answer 5

zfmich 的方法最好，建议使用。

Answer 6

一楼的方法再改进一下s1:=copy(s,pos(s,'\'),pos(s,'.'));

Answer 7

s:=extractfilename('c:\ss.txt');
if pos(s,'.') > 0 then
 s:=copy(s,1,pos(s,'.'));
//否则s就是需要的