如何访问指定的文件夹里指定的文件？ ( 积分: 50 )

如何实现：从数据库里读出的代码比如 AR30001A 后找到放在 AR文件里的 AR30001A.JPG文件?各位朋友帮看看。

如何实现：从数据库里读出的代码比如 AR30001A 后找到放在 AR文件里的 AR30001A.JPG文件?各位朋友帮看看。

只是一个字符串联合，想怎么访问就怎么访问
var
s: string;
begin
s := ExtractFilePath(ParamStr(0)) + 'AR/';
s := s + AdoQuery1.FieldByName('filename').AsString; //假设filename里面保存的 ar30001a
s := s + '.jpg';
ShowMessage(s);
///得到文件路径了
with TImage.create(Form1) do
begin
Left := 0;
Top := 0;
Height := 100;
Width := 100;
Picture.LoadFromFile(s);
Visible := True;
end;
end;

谢谢zqw0117