function tasform.getsizepic(abcpath:string):integer;
var
b:tBitmap;
j:tjpegimage;
begin
if fileExists(abcpath)=false then exit;
if lowerCase(ExtractFileExt(abcpath))='.bmp' then
begin
b:=tbitmap.Create ;
b.LoadFromFile(abcpath);
b.Graphic.
graphic.
result:=b.Width;
b.Free;
end;
end;
这段代码为什么不行呢?