Question

delphi里面用相对路径连续加载图片的问题

想设置个按钮 点下加载一张图片 我想加载很多张有顺序的图片用个什么程序 加载图片用相对路径image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'1.bmp')

若以下回答无法解决问题，邀请你更新回答

Answer 1

在TForm1的private部分，定义一个文件序号计数器，并在Form创建时赋予初值，另外，为了提高性能，还可以定义一个图片存储路径的变量，在Form创建时一次性获得，以后直接使用。程序片段如下：
......
private
FFilePath : string;
FFileOrder : Integer;
......
procedure TForm1.FormCreate(Sender: TObject);
begin
FFilePath := ExtractFilePath( ParamStr(0) );
FFileOrder := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sFull : string;
begin
Inc( FFileOrder );
sFull := Format( '%s%d.bmp', [ FFilePath, FFileOrder ] );
image1.Picture.LoadFromFile( sFull );
end;