Текущий архив: 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
