| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

AccessViolation [D5, MySQL, Paradox]

DimChan ©   (2003-10-29 09:12:00) 

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


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 ;



---

DimChan   (2003-10-29 12:16:00) [1]

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

---

Anatoly Podgoretsky   (2003-10-29 09:57:00) [2]

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

---

Anatoly Podgoretsky   (2003-10-29 09:55:00) [3]

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

---

Johnmen   (2003-10-29 09:49:00) [4]

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

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

---

DimChan   (2003-10-29 09:30:00) [5]

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


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

---

Digitman   (2003-10-29 09:16:00) [6]

SProba[y - 1] := ..

---

Наверх