Временный битмап

← →
{RASkov} (2007-04-21 02:19) [0]

Вариант 1
procedure ImagesLoad; procedure ImageLoad(const FileName: String); var TmpBmp: TBitmap; begin TmpBmp:=TBitmap.Create; TmpBmp.LoadFromFile(); ImageList.Add(TmpBmp); ...... TmpBmp.Free; end; var N: Integer; begin for N := 0 to 50 do ImageLoad("Image"+IntToStr(N)); end;

Вариант 2
procedure ImagesLoad; var TmpBmp: TBitmap; procedure ImageLoad(const FileName: String); begin TmpBmp.LoadFromFile(); ...... end; var N: Integer; begin TmpBmp:=TBitmap.Create; for N := 0 to 50 do ImageLoad("Image"+IntToStr(N)); TmpBmp.Free; end;

Вопрос: Как все-таки правильнее/выгоднее делать - первым вариантом или вторым? Я сам склоняюсь ко второму, но часто встречаю реализацию первого.

← →
Германн © (2007-04-21 02:26) [1]

Имхо, когда речь идёт о for N := 0 to 50,
то не стоит тратить мозги на подобные размышления.

← →
{RASkov} (2007-04-21 03:54) [2]

> когда речь идёт о for N := 0 to 50,

Собственно речь шла не об этом :)
Хотя из [1] можно и понять, что все-таки 2 вариант выгоднее... :)
Ладно... у кого еще какие мнения по этому вопросу?
Если так-же покажется, что оба варианта "одинаковые", просто ткните в тот, который вам больше нравится :)

← →
{RASkov} (2007-04-21 03:58) [3]

Сабж в прочее надо было.... промахнулся :(

← →
antonn (work) (2007-04-21 13:22) [4]

сделал бы второе, только добавил try..finally

var N: Integer;
T : Time;
begin
T:=Now;
for N := 0 to 50 do ImageLoad("Image"+IntToStr(N));
T:=Now-T;
ShowMessage(FloatToStr(T));
end;
------------------
var N: Integer;
T : Time;
begin
T := Now;
TmpBmp:=TBitmap.Create;
for N := 0 to 50 do ImageLoad("Image"+IntToStr(N));
TmpBmp.Free;
T:=Now-T;
ShowMessage(FloatToStr(T));
end;

проверь, где циферка будет побольше, тот и проиграл.

А вообще - 2.

2 дешевле.

Временный битмап Найти похожие ветки