Hallo #,

bin ja gerade beim BDE-Ersatz.
Bei

TQuery.Fields[]

finde ich aber nichts ?

Wie soll ich das denn ersetzen ??

Danke


Heiko

Hallo,

bin etwas weiter.

es gibt ja ein Fields[x].AsInteger (z.B.)

Ich brauche aber bei Fields[] ein TField und kein TFIBXSQLVAR,
sonst muss ich ja nen Haufen Code umschreiben, 3000 Stellen ;(

Kann man das was machen ?

Danke


Heiko

Hallo,

ich erkenne gerade mit Schrecken,
dass es bei FieldByName das gleiche ist !!!

Wie soll man denn hier sanft umstellen,
wenn die simpelsten Methoden nicht funktionieren ;(


Heiko

PS:
Ich habe eine Query-Komponente,
die je nach IFDEF entweder BDE oder FIBPlus benutzt.

Zitat von hoika:

PS:
Ich habe eine Query-Komponente,
die je nach IFDEF entweder BDE oder FIBPlus benutzt.

Dann nutze doch Typen Aliase für TFields und Konsorten, die du je nach IfDef umgiegst.
Ist doch gar nicht so schwer.

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.

Im Code steht nur

markieren

Delphi-Quellcode:

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

Jetzt muss ich im TBaseQuery also das FieldByName abstrakt definieren,
dann in den abgeleiteten Klassen umbiegen.

Puh ;(

Nix mit IFDEF


Heiko

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.

zusammenfalten · markieren

Delphi-Quellcode:

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

zusammenfalten · markieren

Delphi-Quellcode:

uses
  ...,
  InterchangeableQueryTypes;

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


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

Hallo,

hmmmmmmmmmmmmmmm

*nachdenk*
*Bier schlürf*
*nachdenk*

morgen ...


Heiko