提个小问题，在delphi7中rightstr与leftstr怎么不好用？

[skynew2004]

我原来在delphi6中编程做好的程序中有用到这两个函数，后来拿到delphi7中就是不对，一查，是这两个函数不能用？用了不起效果，但也不报错。不知为何？

[ly_liuyang]

不会吧？

http://lysoft.7u7.net

[zdq801104]

应该不会有这样的问题呀，你跟踪看看起不起作用呀？

[skynew2004]

在主form中是起作用的，但在我自定义的函数中对path_file就不起作用，path_file是文件路径及文件名。

[ksaiy]

function OpenFile(Str:String):String;
begin
Result:=LeftStr(Str,10);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
FileStr:String;
begin
if OpenDialog1.Execute then
FileStr:=OpenFile(OpenDialog1.FileName);
ShowMessage(FileStr);
end;

我在D7下编译的。应该不是这两个函数的问题。
可能你什么地方操作错了。

[skynew2004]

我的自定义函数放在另一个unit之中 。

[ksaiy]

一样的啊。

我用上面的代码已经测试了。应该不是这个函数的问题。你再看看其它的部分。

[skynew2004]

后改用copy函数就好了。

[huanzhugege]

应该是WideSTring的问题,这样试试
function OpenFile(Str:WideString):WideString;
begin
Result:=LeftStr(Str,10);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
FileStr:WideString;
begin
if OpenDialog1.Execute then
FileStr:=OpenFile(OpenDialog1.FileName);
ShowMessage(FileStr);
end;

[jinjazz]

uses strutils

[dext]

同意使用WideString

[chinaandys]

同意 ： jinjazz(近身剪（N-P攻略）)

你可能没有引用 strutils单元

[Kshape_zh]

直接copy吧
楼主

[hellolongbin]

看到近10楼才发现正解
要引用StrUtils单元

[skynew2004]

还是copy好。

[live4love2004]

我也遇到这个问题啊，不过我在D7中用它要报错。