Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

AccessViolation   Найти похожие ветки 

← →
DimChan ©   (2003-10-29 09:12) [0]

Я сделал нижеследующее, но дает ошибку, не позволяет присвоить значение:


if qproba.fields[x].ClassName = "TStringField" then
begin
y := y+1;
SetLength (SProba,y);
SProba[y] := QProba.Fields[x].FieldName ;//SProba: array of string, QProba.Fields[x].FieldName : string
SqlStr := SqlStr + ", " + SProba[y];
RichEdit1.Text := SqlStr;
end ;



---

← →
Digitman ©   (2003-10-29 09:16) [1]

SProba[y - 1] := ..

---

← →
DimChan ©   (2003-10-29 09:30) [2]

> Digitman © (29.10.03 09:16) [1]
> SProba[y - 1] := ..


Я не понял конечно к чему это, но тем не менее Не помогло!!!

---

← →
Johnmen ©   (2003-10-29 09:49) [3]

>Я не понял конечно к чему это...

Элементы массива индексируются со значения 0
У тебя "y" - это количество элементов массива.

---

← →
Anatoly Podgoretsky ©   (2003-10-29 09:55) [4]

Выход за границы массива

---

← →
Anatoly Podgoretsky ©   (2003-10-29 09:57) [5]

Заменить можно на High(SProba), что идеологически вернее

---

← →
DimChan ©   (2003-10-29 12:16) [6]

Спасибо вам, МАСТЕРА, я полностью решил проблему!!!

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c