Ich wollte einer Klasse für DB-Abfragen die Abfragetexte hinzufügen

markieren

Delphi-Quellcode:

const
MAXTEXT=5;

type
  tSQLTexte:array[0..maxtext] of string;
const
  sqltexte:tSQLTexte=.........

Dabei ist mir aufgefallen, daß eine eine Klassendefinition das nicht kann.
Ok, ich könnte einer Variablen, die Werte im create zuweisen, aber das kommt mir irgendwie umständlich vor.

Hab ich mich verguckt, oder ist das wirklich so?

Gruß
K-H

Hallo,

markieren

Delphi-Quellcode:

const
  maxtext = 5;
type
  tSQLTexte = array[0..maxtext] of string;
const
  sqltexte:tSQLTexte=('1','2','3','4','5','6');

und in einer Klasse

markieren

Delphi-Quellcode:

type
 TSQLTexte2 = class
    const
      maxtext = 5;
    type
      tSQLTexte = array[0..maxtext] of string;
    const
      sqltexte:tSQLTexte=('1','2','3','4','5','6');
 end;

Äh nee

markieren

Delphi-Quellcode:

TDM_Logs = class(TDataModule)
  const
    SQLTEXTmax=5;
......

ergibt

---------------------------
Fehler
---------------------------
END erwartet, aber CONST gefunden.
---------------------------
OK
---------------------------

Gruß
K-H

Hallo,
dann liegt das ev. an Delphi7, mein Delphi (mind. 2007) kann es ...

Ansonsten pack die Klasse in eine eigene Unit und die Konstante in den Implementation-Teil.

Zitat von hoika:

Hallo,
dann liegt das ev. an Delphi7, mein Delphi kann es ...

In einem früheren Thread (hab den Link nicht gefunden) wurde bestätigt, dass D7 es nicht kann.

Suchst Du nach sowas in der Art?

zusammenfalten · markieren

Delphi-Quellcode:

const
  MaxText = 5;

type
  tSQLTexte = array[0..MaxText] of string;
const
  sqltexte : tSQLTexte = (
    'select * from Tabelle',
    'insert into tabelle where id = :id',
    'delete from tabelle where id = :id',
    'select * from tabelle where id = :id',
    '...',
    '...');

Mein Delphi 7 kompiliert das.

Moin...

Wenn du einen Platz für die Abfragen suchst...
http://www.delphipraxis.net/49505-sq...einbinden.html
http://www.delphipraxis.net/190316-d...creator-2.html
...eine Konstante dafür ist imho schlecht.

PS: Ressourcen gehen auch bei D7

So nackt ist das kein Problem.
Es soll aber schon in der Teil der Klasse sein da

markieren

Delphi-Quellcode:

...
dm.GetBibdata(SRliste);
UsedSQL.Text:=dm.SQLTEXTE[GetBibdata];
...

einfach besser aussieht und mir logischer erscheint als

markieren

Delphi-Quellcode:

...
dm.GetBibdata(SRliste);
UsedSQL.Text:=SQLTEXTE[GetBibdata];
...

Natürlich könnte ich auch den Namen der Unit mit angeben oder ich packe das hinter einen Getter, aber daß scheint mir widerum als "L’art pour l’art"

Gruß
K-H

@haentschmann
NeeNee Konstante passt schon gut, und entspricht auch genau dem Konzept was dahinter steckt.
SQL in Recource würde ich für andere Zwecke einsetzen!

Zitat von nahpets:

Suchst Du nach sowas in der Art?

zusammenfalten · markieren

Delphi-Quellcode:

const
  MaxText = 5;

type
  tSQLTexte = array[0..MaxText] of string;
const
  sqltexte : tSQLTexte = (
    'select * from Tabelle',
    'insert into Tabelle where id = :id',
    'delete from Tabelle where id = :id',
    'select * from Tabelle where id = :id',
    '...',
    '...');

Mein Delphi 7 kompiliert das.

Ok Vielleicht nicht mit Delphi 7 aber wie wäre es mit:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyDatenWhatever = class
    private
     [ DefaultValue( 'select * from <Table>' ) ]
     FSQLSelect : String;
     [ DefaultValue( 'insert into <Table> (<Fields>) VALUES (<Values>) where id = :id' ) ]
     FSQLInsert : String;
     [ DefaultValue( 'UPDATE <Table> <SETS> where id = :id' ) ]
     FSQLUpdate : String;
     [ DefaultValue( 'delete from <Table> where id = :id' ) ]
     FSQLDelete : String;
   // ...
  end;

Habs zwar noch nie so gemacht... aber ok...

Mavarik

Moin,

hier funktioniert

markieren

Delphi-Quellcode:

  public
    const tbl: string = 'Usergroup';

super in einer Klasse.