Konstante in Klasse?

[p80286]

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

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

[hoika]

Hallo,

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

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;

[p80286]

Äh nee

Delphi-Quellcode:

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

ergibt

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

Gruß
K-H

[hoika]

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.

[Poelser]

Moin,

hier funktioniert

Delphi-Quellcode:

  public
    const tbl: string = 'Usergroup';

super in einer Klasse.

[Poelser]

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.

[nahpets]

Suchst Du nach sowas in der Art?

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.

[haentschman]

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

[p80286]

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

Delphi-Quellcode:

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

einfach besser aussieht und mir logischer erscheint als

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!

[haentschman]

Hallöle...
Ich versuche dich von der Konstante herunterzuheben...
UsedSQL.Text:=SQLTEXTE[GetBibdata]; ...das ist das was du mit einer Ressource erreichen kannst. Mit dem Editor kannst du die Texte deiner Ressource einfach anpassen ohne das der Qelltext verändert wird. Es macht die Klasse schlanker...

Nachtrag:

Zitat:

NeeNee Konstante passt schon gut, und entspricht auch genau dem Konzept was dahinter steckt.

...das Konzept müßtest du mal erklären.