Question

delphi如何将int类型转换为String类型

var
i,gMC: Integer;
begin
//
i:=1;
gMC := 3;
while (i <= gMC) do
begin
///////gLuJing 是String类型
///////gmc是图片名称后面的数字，如‘宫内节育器放置1.jpg’
imGongNeiFZ1.Picture.LoadFromFile(gLuJing + '人口计生\计划生育技术服务\宫内节育器放置' + gMC + '.jpg');
end;
end;
////
我需要循环的是同一路径下的3张图片

求高手解答，小弟感激不尽。
InToStr 不能用。

Answer 1

据我的理解，并编写测试代码:

var
i,gMC: Integer;
begin
i:=1;
gMC := 3;
while (i <= gMC) do
begin
///////gLuJing 是String类型
///////gmc是图片名称后面的数字，如‘宫内节育器放置1.jpg’
imGongNeiFZ1.Picture.LoadFromFile(gLuJing + '人口计生\计划生育技术服务\宫内节育器放置' + IntToStr(gMC) + '.jpg');
end;
end;

你的问题补充：InToStr 不能用，可能的原因：

1. 最可能的原因：函数名称拼写错误，少了个T，应该是 IntToStr

2. 没有将IntToStr所有的单元文件包含进来(uses，但据我的估计可能性不大，一般来说这个函数所在单元都会缺省引入）。

追问

我还想问一下就是 我这个图片有好多张。 有没有简单的方法能够实现
就是在单击下一页的时候跳到 第二张图片 再单击下一页 跳到第三页。。。。。

谢谢。

追答

你可以查找 'gLuJing + '人口计生\计划生育技术服务\' 目录下的所有图片文件，并将之保存在TStringList类型的变量里，然后直接移动指针(index序号)就可以。

Answer 2

为啥不能用inttostr，把错误信息贴出来，另外你的“InToStr ”错了，应该是inttostr，少了个T

Answer 3

inttostr(i)
包含SysUtils文件