Скачать: CL | DM;

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

← →
{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

---

← →
Prohodil Mimo ©   (2007-04-21 16:02) [5]

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.

---

← →
Ketmar ©   (2007-04-21 17:28) [6]

2 дешевле.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c