code : pascal
var
ArrNama: array of string;
begin
with Query1 do
begin
Close;
SQL.Text('SELECT * FROM adm_pegawai');
Open;
SetLength(ArrNama,RecordCount-1);
while not Eof do
 ArrNama[RecNo] := FieldByName('nama').AsString;
end;
end;
Parsed in 0.004 seconds, using GeSHi

code : pascal
procedure TForm1.Button1Click(Sender: TObject);
var
  arrNama: array of string;
  i: integer;
begin
  with Q1 do
  begin
    Close;
    SQL.Text := 'SELECT nama FROM anggota';
    Open;
 
    SetLength(arrNama,Q1.RecordCount);
    while not Eof do
    begin
      arrNama[RecNo - 1] := FieldByName('nama').AsString;
      Next;
    end;
  end;
 
  with ListBox1.Items do
  begin
    Clear;
    for i := Low(arrNama) to high(arrNama) do
      Add(arrNama[i]);
  end;
end;
Parsed in 0.008 seconds, using GeSHi