aBitmap : TBitmap; размер изображения

[Человек_Борща]

Stilet, буфер обмена!

так там же и размер данных в буфере. Зачем какие-то байты перебирать.

[Le0n4iko_o]

function GetFileSize(FileName:string):Integer;
var Raz:TFileStream;
 begin
  try
     Raz:= TFileStream.Create(FileName,fmOpenRead);
      except
     Result := -1;
            end;
     if Result <> -1 then Result := Raz.Size;
  Raz.Free;
 end;

[Человек_Борща]

Le0n4iko_o, так размер мереть - глупо. Файл в 4 гб вы отмеряете? А в 6? а в 24?

[Le0n4iko_o]

Человек_Борща данный пример предназначен для файлов малых размеров (что вполне достаточно для картинки).
есть пример получше ? Поделитесь очень буду признателен, познание дельфина вещь незаменимая и приятная )

[Человек_Борща]

Пожалуйста =)

function GetFileSize(const aFileName:sreing = ''):Int64;
var
 sr:SysUtils.TSearchRec;
begin
 Result:=0;
 try
  if (SysUtils.FindFirst(aFileName,faAnyFile,sr) = 0) then
    Result:=sr.Size;
 finally
   SysUtils.FindClose(sr);
 end;
end;

[Le0n4iko_o]

Человек_Борща спасибо )