Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

как заполнить 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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.056 c
7-1079991197
neodiX
2004-03-23 00:33
2004.04.11
Detect WinLogon window in winXP


1-1082575852
jiurasic
2004-04-21 23:30
2004.04.11
Можно ли раскомпилировать DLL библиотеку?


7-1076246345
sadretro
2004-02-08 16:19
2004.04.11
как програмно можно зашарить доступ к папке


14-1079240566
RealRascal
2004-03-14 08:02
2004.04.11
I Hate This Key


1-1082729140
Murad
2004-04-23 18:05
2004.04.11
Символы "<" и ">" в IXMLDocument