有一个字串xingan.txt，我不想要(.txt)有没有这样的函数用来删除呀。有什么办法各位就提提笔。

Question

有一个字串xingan.txt，我不想要(.txt)有没有这样的函数用来删除呀。有什么办法各位就提提笔。

Answer 1

s:=copy('xingan.txt01',1,pos('xingan.txt','.'))

Answer 2

Var
    MyString: String;
begin
    MyString := 'xingan.txt';
    MyString := LeftStr(MyString,Length(MyString)-4);
end;

Answer 3

在引用LeftStr()的时候要引用StrUtils单元

Answer 4

Copy('xingan.txt',1,Pos('xingan.txt','.'))

Answer 5

呵呵，LeftStr这个俺到是很少用，学习.........

Answer 6

Copy('xingan.txt',1,Pos('xingan.txt','.txt'))