Главная страница
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.039 c
1-1082614906
JT
2004-04-22 10:21
2004.04.11
HTML Help


1-1082444567
Сережа550
2004-04-20 11:02
2004.04.11
GUI-Консоль


11-1066039342
RA
2003-10-13 14:02
2004.04.11
Кто нибудь пытался перевести под KOL комп-ты BDE


4-1075718960
Grinder
2004-02-02 13:49
2004.04.11
поверх всех окон


3-1081881095
mouse_web
2004-04-13 22:31
2004.04.11
Как использовать БД без BDE Administrator?