怎样取得值？

Question

D:\ERT\jgut\DUT.rar
D:\ERT\dr\DUT.rar
怎样取.前字符。

Answer 1

LeftStr(Edit1.text,Pos('.',edit1.text)-1)

Answer 2

怎样取得C:\windows\a.reg下ows\a.reg字符。RightStr(Edit1.text,Pos('o',edit1.text)+1)关于字符串的操作函数在DELPHI函数表里有详细介绍，建议你下载一个看看。
如果POS COPY LETFSTR，RIGHTSTR.......................

Answer 3

str:=copy(trim('D:\ERT\jgut\DUT.rar'),n,count);//str是变量，n表示从第位开始取，count表示取几为;
例如你想取'.'前面的几位,代码如下:
var
str:string;
begin
   str:=copy(trim('D:\ERT\jgut\DUT.rar'),1,15);
end;
//str返回的值为:D:\ERT\jgut\DUT

Answer 4

取文件名不包含后缀
function ExtractFileNameNoExt(Filename: string): string;
begin
  Result := Copy(Filename,length(ExtractFilePath(filename))+1, Length(Filename) - Length(ExtractFileExt(Filename))-length(ExtractFilePath(filename)));
end;