Database

[ Delphi ] – Get the table version

function GetTableVersion(Table: TTable): Longint;
var
  hCursor: hDBICur;
  DT:      TBLFullDesc;
begin More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Select a random data record

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Table1.First; More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Select all Fields in a TDBGrid

function GridSelectAll(Grid: TDBGrid): Longint;
begin
  Result := 0;
  Grid.SelectedRows.Clear;
  with Grid.DataSource.DataSet do
  begin
    First;
    DisableControls;
    try
 More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...