routine_db.pas

unit routine_db;

interface

uses Messages, Dialogs, SqlExpr;

function FieldID(name:string; query:TSQLQuery): integer; overload;

function FieldID(name:string; query:TSQLDataSet): integer; overload;


implementation

uses Unit1;

function FieldID(name:string; query:TSQLQuery): integer;
var
  i         : integer;
  all_names : string;
begin
  result := query.FieldList.IndexOf( name );
  if result = -1 then
  begin
    result := 0;
    ShowMessage(  'Ñòîëáåö íå íàéäåí ' + name + #13 + 'Âîçìîæíûå èìåíà: ' + #13 + query.FieldList.Text );
  end;
end;

function FieldID(name:string; query:TSQLDataSet): integer;
var
  i         : integer;
  all_names : string;
begin
  result := query.FieldList.IndexOf( name );
  if result = -1 then
  begin
    result := 0;
    ShowMessage(  'Ñòîëáåö íå íàéäåí ' + name + #13 + 'Âîçìîæíûå èìåíà: ' + #13 + query.FieldList.Text );
  end;

end;

end.