Форум: "Прочее";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
ВнизВременный битмап Найти похожие ветки
← →
{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;
Вариант 2procedure 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 вся ветка
Форум: "Прочее";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c