Bonjour,

Je suis en train de tester le passage pour mon application des composants ZeosDB vers FireDac (base Firebird) sous XE8
La compilation bute sur un message d'erreur que j'ai du mal à interpréter:

[dcc32 Erreur] Unit2.pas(347): E2010 Types incompatibles : 'string' et 'TFDDatSTable'

dans la fonction suivante au niveau de la ligne 10

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function TDM2.dernier_id(Table: string): integer;
var
  dernier_id: TFDQuery;
begin
  dernier_id := TFDQuery.Create(nil);
  with dernier_id do
  begin
    Connection := FDConnection1;
    DataSource := DSDernier_id;
    sql.Text := 'SELECT gen_id(GEN_' + Table +
      '_ID, 0) AS nombre FROM RDB$DATABASE';
    try
      active := true;
      result := dernier_id.FieldByName('Nombre').AsInteger;
    except
      dernier_id.free;
    end;
  end;
end;