kk,, aq mu nanya gmn ya caranya masukin data dari database ke variable... misalnya ada field nama d database.. mu aq masukin ke var yg berbentuk array.. gmn y caranya??? txh b4... plz help me...

perlu diperjelas lagi var berbentuk array seperti apa yg dimaksud...? apakah utk menampung value 1 field aja (nama) atau utk menampung value semua field?

misalnya nama var nya nama:array of string; aq mu ngambil datanya dari field nama.. jd smua yg ada di field nama entar aq tampung di var nama... gtu kk...

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;

kira2 bgitu sih,klo msih error ya coba perbaiki sndiri dlu ya...:D

kk,, qo wkt aq run malah form nya g mau keluar sama skali?? awal nya ada error tp dah aq perbaiki... tp ttp g jln.. conection nya aq pake ado DB nya aq pke mysql procedure TForm1.FormActivate(Sender: TObject); var i:integer; begin n:=1; with ADOQuery1 do begin SetLength(Nama,RecordCount-1); while not Eof do begin Nama[RecNo] := FieldByName('user').AsString; inc(n); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=1 to n do begin StringGrid1.Cells[1,i]:=nama[i]; end; end; var nama nya aq pake sbg var global. plz help me kk...

di dalam looping :

while not eof do
begin
.........
Next;   //---------> tambahkan next di baris terakhir sebelum keluar looping while
end;

n = 1?? ..array dynamic dimulai dari 0 jadi n:=0;

malah jd error kk,,,,, gmn dung???

sry doubl post.. error messagenya "raised exception class ...." plz help me kk expertise....

procedure TForm1.FormActivate(Sender: TObject);--------->>gunakan OnShow (jangan OnActive) var i:integer; begin n:=1;----------------->>seharusnya n=0 with ADOQuery1 do begin SetLength(Nama,RecordCount);-->recordcount tidak perlu dikurang 1 while not Eof do begin Nama[n] := FieldByName('user').AsString;-->>bukan nama[Recno] inc(n); next; --->> tambahkan next end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin StringGrid.rowcount := n+1; for i:=0 to n do begin StringGrid1.Cells[1,i+1]:=nama[i]; end; end;

msh ttp g bisa kk... error report nya msh ttp kaya yg td.... :cry: :( :cry: :( :cry: