подсчет значений в строке БД

[kinnder]

вобщем процедура выглядит так

procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..25] of string;
i:integer;
begin
 ADODataSet1.Close;
 ADODataSet1.CommandText:=
 'select * from Студенты where Фамилия like ''%'+Form1.Edit1.Text+'%''';
 For i:=0 to ADODataSet1.Fields.Count-1 do
 a[i]:=ADODataSet1.Fields[i].AsString;
 for i:=0 to 25 do
 Label2.Caption:=a[i];
  ADODataSet1.Open;
end;

но вывода для проверки в Label2 не происходит...

[Stilet]

но вывода для проверки в Label2 не происходит...

Ессно... Ты открываешь набор после того как в Лабель что-то выводится, а нужно открывать до цикла.

[kinnder]

пробовал поставить ADODataSet1.Open; до цикла
for i:=1 to 25 do
Label2.Caption:='Запись '+a[1];----ничего не выводится

а если поставить ADODataSet1.Open; до цикла

For i:=1 to ADODataSet1.Fields.Count-1 do
a[i]:=ADODataSet1.Fields[i].AsString;

то выдается ошибка и проект закрывается

[Stilet]

то выдается ошибка

И как всегда текст ее привести вера не позволяет...

[kinnder]

ошибка следующая:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004041C2 in module 'Project1.exe'.Read of address 00000008'.Process stopped.

[Stilet]

А почему ты не используешь ADOQuery?

procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..25] of string;
i:integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:=
'select * from Студенты where Фамилия like ''%'+Form1.Edit1.Text+'%''';
ADOQuery1.Open;

For i:=0 to ADOQuery1.Fields.Count-1 do
 a[i]:=ADOQuery1.Fields[i].AsString;

for i:=low(a) to High(a) do
 Label2.Caption:=a[i];
end;

Увидел свои ошибки?

[kinnder]

при изменении ADODataSet на ADOQuery выводится ошибка,типа переменная не объявлена,хотя она объявлена в type,и на форму брошена иконка ADOQuery с параметрами Connection-ADOConnection1,DataSource-DataSource1...

[Stilet]

выводится ошибка,типа переменная не объявлена

Значит однозначно в коде не то что-то накрутил.

[kinnder]

Уважаемый Stilet,может тогда посмотрите если не сложно,где я там перемудрил?заранее извиняюсь за криворукость...

[Stilet]

kinnder

))))))
Во-первых: Пароль тоже мне взламывать прикажешь?
во-вторых:

ADOQuery1.Close;
ADODQuery1

Ничего не настораживает? Присмотрись внимательно как ты написал тут имя компонента