Fórum Como converter Byte para integer no delphi? #256456

...
var s:byte;
    i:integer;
begin
   s := 1;
   i := 0;
   i := s;
end;

var A: Byte;
B: Integer;
begin
A := 1;
//  B := Integer(A);
  B := A; // Equivalente ao typeCasting efetuado acima, ou seja, não dá erro e não é necessário
  if A = B then ShowMessage(´Ok´);

function Get_AutoIncremento(Const Tabela: string): integer;
  var Q: TQuery;
      MyBuffer : ^integer;
begin
  Q := TQuery.Create(nil);
  try
    Q.DatabaseName := ´dbcfw´;
    Q.sql.Text := ´select gen_id(G_´ + uppercase(tabela)+ ´,1) from RDB$DATABASE´;
    Q.open;

    with q.FieldByName(´gen_id´) do
    begin

      GetMem(MyBuffer, DataSize);
      try
        if not GetData(MyBuffer) then
           MessageDlg(FieldName + ´ is NULL´, mtInformation, [mbOK], 0)
        else
           result := MyBuffer^;{ Do something with the data };
      finally
        { Free the space }
        FreeMem(MyBuffer, DataSize);
      end;
    end;

  finally
    q.Free;
  end;
end;