Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.037 c