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

Question

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

Answer 1

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

Answer 2

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下编译的。应该不是这两个函数的问题。
可能你什么地方操作错了。

Answer 3

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

Answer 4

应该是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;

Answer 5

同意 ： jinjazz(近身剪（N-P攻略）)       你可能没有引用 strutils单元

Answer 6

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