Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
как заполнить Array of const массивом array of string или присвои Найти похожие ветки
← →
D Purple (2004-03-26 16:40) [0]как заполнить Array of const массивом array of string или присвоить каким либо образом
← →
Smithson © (2004-03-26 16:41) [1]в цикле
← →
D Purple (2004-03-26 16:44) [2]Пример кода если можно, вообще то напрямую не заполняется!
← →
Smithson © (2004-03-26 16:47) [3]Приведи пример кода, если можно, а то не понятно, что у тебя не запоняется.
← →
han_malign © (2004-03-26 17:04) [4]если нужно передать параметры в функцию, то примерно так:
type
TConstArray = Array[word]or TVarRec;
PConstArray = ^TConstArray;
function FakeArray(aArr: array of string);
var pArr: PConstArray;
i: integer;
begin
Getmem(pArr,Length(aArr)*Sizeof(pArr[0]));
for i:=0 to High(aArr)do begin
pArr[i].VType:=vtAnsiString;
pArr[i].VPointer:=Pointer(aArr[i]);
end;
ConstArrayFunction(Slice(pArr^,Length(aArr)));
FreeMem(pArr);
end;
← →
D Purple (2004-03-26 17:04) [5]procedure ImportKSIPData(AValues : array of string);
ArrayValues : array of TVarRec;
begin
надо что-то типа (утрированно)
ArrayValues := ArrayValues
end;
← →
D Purple (2004-03-26 17:07) [6]Вернее
procedure ImportKSIPData(AValues : array of string);
ArrayValues : array of TVarRec;
begin
надо что-то типа (утрированно)
ArrayValues := AValues;
end;
← →
han_malign © (2004-03-26 17:11) [7]>ArrayValues : array of TVarRec;
- не помню пройдет ли в открытый массив - динамический, пробовать нужно. А так тоже самое, только SetLength(ArrayValues, Length(Avalues)) не забыть.
← →
D Purple (2004-03-26 17:14) [8]Можешь написать примерчик, а то уже голова не соображает :)
Заранее благодарен!
← →
han_malign © (2004-03-26 17:21) [9]я сегодня добрый:
procedure ImportKSIPData(AValues : array of string);
var ArrayValues : array of TVarRec;
begin
SetLength(ArrayValues,Length(aValues));
for i:=0 to High(AValues)do begin
ArrayValues[i].VType:=vtAnsiString;
ArrayValues[i].VPointer:=Pointer(aArr[i]);
end;
...............
end;
- найди десять отличий называется
← →
D Purple (2004-03-26 17:34) [10]огромное спасибо!!!
← →
panov © (2004-03-26 18:26) [11]>D Purple (26.03.04 16:40)
как заполнить Array of const массивом array of string или присвоить каким либо образом
Никак.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.049 c
