怎样才能去掉后缀名？

[先生]

我已经把一个文件名（.asm为后缀）赋给了一个字符串变量，怎么样才能够得到去掉
后缀名的文件名？

[lixif]

不用这么麻烦，
FileName:=ChangeFileExt(FileName,'');
OK!

[lixif]

有问题，这里找我：
www.netgocn.com

[qxj]

用COPY函数

[WWWWA]

z:='123.asm';
z1:=length(z1);
z2:=copy(z,1,z1-4);

[WWWWA]

z:='123.asm';
z1:=length(z);
z2:=copy(z,1,z1-4);

[lxpbuaa]

var
S,Ext: String;
begin
S := 'sasa.asm';
Ext := ExtractFileExt(S);
S := Copy(S, 1, Length(S)-Length(Ext));
ShowMessage(S);
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[qxj]

var
a:string;
tmp:integer;

a :='aa.asm';
tmp :=pos('.',a);//得到位置
a :=copy(a,0,tmp-1);//得到想要的字符串
showmessage(a);

[qxj]

var
a:string;
tmp:integer;

a :='aa.asm';
tmp :=pos('.',a);//得到位置
a :=copy(a,0,tmp-1);//得到想要的字符串
showmessage(a);

[eliphe]

var
S,Ext: String;
begin
S := 'sasa.asm';
Ext := ExtractFileExt(S);
S := Copy(S, 1, Length(S)-Length(Ext));
ShowMessage(S);
end;

[myling]

uses StrUtils;


var str:string;
begin
str:='abcd.asm';
str:=leftStr(str,pos('.',str)-1);
showmessage(str);
end;

[myling]

晕！ 一转眼这么些星呀！



哈