FIBPlus: Fields[] ???

[Elvis]

Zitat von hoika:

Hallo,

ne, du hast das falsch verstanden.

Im Code steht

Query.FieldByName('Id').AsInteger

Ist Query vom Typ TQuery (BDE), wird intern ein TField erzeugt,
dass dann das AsInteger "macht".

Ist die Query vom Typ TFIBQuery, ist es ein anderer Type,
er auch ein AsInteger hat.

Das soll aber meinen Code nicth interessieren,
soll also transparent sein.

Ich habe dich schon richtig verstanden.

Delphi-Quellcode:

unit InterchangeableQueryTypes;
interface
type
{$ifdef Trallala}
  TInterchangableQuery = TFIBQuery;
  TInterchangableField = TFIBXSQLVAR;
{$else}
  TInterchangableQuery = TQuery;
  TInterchangableField = TField;
{$endif Trallala}
implementation
end.

Delphi-Quellcode:

uses 
  ...,
  InterchangeableQueryTypes;

var 
  Query: TInterchangableQuery; 
begin 
  Query.FieldByName('Id').AsInteger...


procedure TXyz.Mieps(aField : TInterchangableField);
...