Почему возникают тормоза при переходе от массива к такой схеме ?

← →
AIms (2005-08-24 01:36) [0]

Было:
AIms : array of TAIms;

Cтало :
FAIms : array of TAIms;
property AIms[Index: Integer]: TAIms read GetObject write SetObject;

Всё нормально работает, но тормозит жутко, не понимаю почему. Это чего, просто такая тормозная конструкция, или что-то ещё ? И главное, можно ли это как нибудь ускорить ?

← →
Defunct © (2005-08-24 01:47) [1]

причина возможно здесь:

GetObject/SetObject

код приведите.

← →
AIms (2005-08-24 02:02) [2]

Там ничего нету. Только загрузка при первом обращении :

Вроде так :
function TAi2.GetObject(Index: Integer): TAIms; begin if not isLoad then begin isLoad := True; LoadIt; end; Result := FAIms[Index]; end; procedure TAi2.SetObject(Index: Integer; Value: TAIms); begin FAIms[Index] := Value; end;

← →
Defunct © (2005-08-24 03:59) [3]

Это что?

if not isLoad then begin isLoad := True; LoadIt; end;

без этого тоже тормозит?

← →
Джо © (2005-08-24 04:02) [4]

> [3] Defunct © (24.08.05 03:59)

Lazy load.
То бишь, загрузка актуальных данных только после первого обращения к свойству. Я так понимаю.

← →
AIms (2005-08-24 04:12) [5]

Отбой тревоги. :) Перезагрузился и всё нормально заработало. Видимо просто глюк какой то был. Очень надеюсь, что повторяться он не будет.

← →
Defunct © (2005-08-24 05:10) [6]

> Джо

IsLoad это больше на название функции похоже, или свойства.
как для флага Loaded должно было быть.

← →
Джо © (2005-08-24 05:22) [7]

> [6] Defunct © (24.08.05 05:10)

Да, название неудачное. И вообще, установку флага я производил бы в методе LoadIt.

← →
TUser © (2005-08-24 06:18) [8]

А SetLength где?

← →
Anatoly Podgoretsky © (2005-08-24 09:42) [9]

Код очень опасный отсутствует контроль индексов.

← →
GuAV © (2005-08-24 14:19) [10]

Anatoly Podgoretsky © (24.08.05 9:42) [9]

Откуда Вы можете знать, что отсутствует контроль индексов ?

← →
Alexander Panov © (2005-08-24 14:22) [11]

if not isLoad then begin isLoad := True; LoadIt; end; Result := FAIms[Index];

Длина FAIms может быть нулевой

← →
КаПиБаРа © (2005-08-24 14:30) [12]

Контроль индексов не всегда нужен. Лазиют же некоторые по скалам без страховки.

← →
GuAV © (2005-08-24 14:44) [13]

Alexander Panov © (24.08.05 14:22) [11]
Длина FAIms может быть нулевой

И тогда не будет ERangeError при {$R+} ?

← →
evvcom © (2005-08-24 17:10) [14]

> И тогда не будет ERangeError при {$R+} ?

Будет, но...
Поскольку используется проперть, значит предполагается ее дать кому-то использовать, а этот кто-то может R+ изменить на R- c вытекающими.

← →
Sapersky (2005-08-24 17:57) [15]

Type
TImsArray = array of TAIms;

FAIms : TImsArray;
property AIms: TImsArray read FAIms;

Смертельный номер :)
Зато по скорости наилучший вариант. Жалко, default с ним не действует.

evvcom © (24.08.05 17:10) [14]
Поскольку используется проперть, значит предполагается ее дать кому-то использовать, а этот кто-то может R+ изменить на R- c вытекающими.
$R - локальная директива, область действия которой ограничена текущим модулем..

← →
AIms (2005-08-25 03:30) [17]

А почему теперь : AIms[0].name := "blablabla"; не действует ?

2 КаПиБаРа © (24.08.05 14:30) [12]
>> Контроль индексов не всегда нужен. Лазиют же некоторые по скалам без страховки.
Си-шники называются

← →
Aims (2005-08-25 05:27) [19]

Есть там контроль индексов. Что мне сюда весь проэкт запостивать что ли ?

← →
AIms (2005-08-31 06:43) [20]

AIms (25.08.05 03:30) [17]
А почему теперь : AIms[0].name := "blablabla"; не действует ?

Что значит не действует?

А чем всё же Tlist не нравится? Для этого и предназначен.

Почему возникают тормоза при переходе от массива к такой схеме ? Найти похожие ветки