Access в Delphi. Как аполнить массив элементами поля таблицы?

[VladimirAleks]

Как аполнить массив элементами поля таблицы?
Всё подключено и работает, нужно только из одного столбика таблицы Access занести элементы в массив программы.

[Pitbull]

ну вот тебе самій простой пример... Тут у меня масив string....

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adoTable1.first;
i:=0;
while AdoTable1.eof<>true do
begin
myArray[i]:=adoTable1.FieldByName('name').asS tring;//имя столбца...Можешь через индексі...как тебе удобнее
adoTable1.next;
inc(i);
end;

end;

[VladimirAleks]

Спасибо, помогло, первый раз всё работает. Но если нажать на кнопку повторно, то появляется сообщение об ошибке: 'access violation at 0x0048962c: read of address 0x5f35331a'

[Pitbull]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1id: TAutoIncField;
ADOTable1fname: TStringField;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
myArray : array[1..6] of string;
begin
adoTable1.first;
i:=0;
while AdoTable1.eof<>true do
begin
myArray[i]:=adoTable1.FieldByName('name').AsS tring;//èìÿ ñòîëáöà...Ìîæåøü ÷åðåç èíäåêñ³...êàê òåáå óäîáíåå
adoTable1.next;
Memo1 .Lines.add(myArray[i]);
inc(i);
end;

end;
end.

Вот вам олній код..у меня работает без сбоев....