| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

VarArrayCreate

Ega23 ©   (2005-01-24 13:39:00) 


The following example creates a one-dimensional variant array with five elements. Each of the elements are of type Variant, and can therefore contain values of varying types, as is illustrated by the example. Notice in particular how the value of the last element of the array is itself a variant array.

var

 A: Variant;
begin
 A := VarArrayCreate([0, 4], varVariant);
 A[0] := 1;
 A[1] := 1234.5678;
 A[2] := 'Hello world';
 A[3] := True;
 A[4] := VarArrayOf([1, 10, 100, 1000]);
 WriteLn(A[2]); { Hello world }
 WriteLn(A[4][2]); { 100 }

end;


Исходные данные: есть строка с разделителями, нужно на выходе получить VarArray. Что-то типа:

function DelimitedStrToVarArray(const aStr:String):Variant;

Вопрос: если я создал внутри функции этот Vararray произвольной длинны, то надо ли мне потом ему Unassigned делать?

---

Ega23   (2005-01-25 13:17:00) [1]

2 REA   (25.01.05 12:52) [6]
можно кстати простой пример сваять и посмотреть вызовы в CPU Window (типа VarArrayFinlize или как оно там).

Блин. Чё-то про это не подумал...
Посмотрел. Действительно, на выходе из области видимости переменной - call @FinalizeArray.

Вопрос снят.

---

REA   (2005-01-25 12:52:00) [2]

Можно предположить, что память освободится, если переменная выйдет из области видимости. А можно кстати простой пример сваять и посмотреть вызовы в CPU Window (типа VarArrayFinlize или как оно там).

---

Digitman   (2005-01-25 11:44:00) [3]

> вариант - это встроенный тип, который работает за счет COM
> технологии


??!!

---

Ega23   (2005-01-25 10:21:00) [4]

2 AlexG ©   (25.01.05 10:17) [3]
Следовательно не нужно, само освободится.

Да я вот тоже думаю, что не нужно. Хотелось убедиться...

---

AlexG   (2005-01-25 10:17:00) [5]

Я не смогу сказать точно, т.к. нужно проверить свою память. Но вариант - это встроенный тип, который работает за счет COM технологии. Следовательно не нужно, само освободится.

---

Ega23   (2005-01-25 10:10:00) [6]

Народ, ау!!!
Надо самому освобождать массив вариантов, или нет?

---

Ega23   (2005-01-24 13:51:00) [7]

Вот, приблизительно так накатал:
function StrToVarArray(const aStr:String):Variant;
var
List:TStringList;
i:Integer;
begin
List:=TStringList.Create;
try
 DelimitedStrToList(aStr,List,[',']);
 Result:=VarArrayCreate([0,List.Count-1], varVariant);
 for i:=0 to List.Count-1 do
  Result[i]:=List.Strings[i];
finally
 List.Free;
end;
end;


вызов:

RQOpers.Locate(eKeys.Text, StrToVarArray(eValue1.Text), []);

Так надо как-то память освобождать, или само всё сделается???

---

Наверх