怎么可以实现两个字符的相减(50分)

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #1

我现在想把一个文件名的扩展名去了
就是这个样子的
strr:='c:/text.text';
strr:='text';
谢谢

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #2

strr:=copy(strr,1,pos('.',strr)-1);

or
api
windows.getfilename...

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #3

给你个例子
function TForm3.GetName(FileName: string): string;
var
I: Integer;
iPos1, iPos2: Integer;
iCount: Integer;
begin
//
iPos1 := 0;
iPos2 := 0;
for I := 1 to Length(FileName) do
begin
if FileName = '/' then iPos1 := I;
if FileName = '.' then iPos2 := I;
end;
iCount := iPos2 - iPos1 - 1;
Result := Copy(FileName,iPos1+1,iCount);
end;

 

S

soul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #4

ChangeFileExt(ExtractFileName(strr),'')

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #5

1、Copy(Str,1,Len(Str)-4)
2、有个函数，忘了。[]

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #6

tempstr:=extractfilename(strr);
strr:=copy(tempstr,1,pos('.',tempstr))

 

D

dadabox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #7

FileName:=ExtractFileName(AFileName)取得文件名
FilePath:=ExtractFilePath(AFileName)取得文件路径
FileExt:=ExtractFileExt(AFileName)取得扩展名

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #8

xx