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]

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

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