Цитата:
|
Если перестрою NewsArray в TStringList это уже будет список.
|
Когда-то копал всякие List'ы делфовские. Ни разу они не списки. Обычные динамические массивы.
Отрывок из Classes.pas:
Код:
...
TStringItem = record
FString: string;
FObject: TObject;
end;
PStringItemList = ^TStringItemList;
TStringItemList = array of TStringItem; // Обычный массив
TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;
TStringList = class(TStrings)
private
FList: TStringItemList; // тут он и используется
...