如何取image .picture 的文件名?(36分)

如:
image1.Picture.LoadFromFile('bmp/36/board.bmp') 后,如何取得 image1 的picture文件名称 board.bmp???

看看源代码：
constructor TFileStream.Create(const FileName: string; Mode: Word);
begin
{$IFDEF MSWINDOWS}
Create(Filename, Mode, 0);
{$ELSE}
Create(Filename, Mode, FileAccessRights);
{$ENDIF}
end;
程序最终没有保留你输入的信息，所以你放弃吧。

上一层
procedure TGraphic.LoadFromFile(const Filename: string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
try
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
再上一层
procedure TPicture.LoadFromFile(const Filename: string);
var
Ext: string;
NewGraphic: TGraphic;
GraphicClass: TGraphicClass;
begin
Ext := ExtractFileExt(Filename);
Delete(Ext, 1, 1);
GraphicClass := FileFormats.FindExt(Ext);
if GraphicClass = nil then
raise EInvalidGraphic.CreateFmt(SUnknownExtension, [Ext]);

NewGraphic := GraphicClass.Create;
try
NewGraphic.OnProgress := Progress;
NewGraphic.LoadFromFile(Filename);
except
NewGraphic.Free;
raise;
end;
FGraphic.Free;
FGraphic := NewGraphic;
FGraphic.OnChange := Changed;
Changed(Self);
end;

ExtractFileName

为什么不在Load的时候保存好文件名呢？

多人接受答案了。