Mega Code Archive

 

Categories / Delphi / ADO Database

 

Databesden stringgride aktarma

procedure TForm1.BitBtn1Click(Sender: TObject); VAR i,row:integer; begin Table1.OPEN; Table1.First; row := 0; StringGrid1.RowCount:=Table1.RecordCount; while not Table1.EOF do begin for i := 0 to Table1.FieldCount-1 do StringGrid1.Cells[i,row] := Table1.Fields[i].AsString; Inc (row); Table1.Next; end; end;