Konstante in Klasse?

[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]

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.

[p80286]

Zitat von haentschman:

...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...

und Du bist flexibler! Ja ist alles ok, aber in diesem Falle dient die Klasse nur als Hülle für einen sehr speziellen Zweck und ist monolitisch. Da ist nichts mit Vererbung o.ä. Eigentlich ist das Anzeigen des SQL-Textes auch überflüssig und somit könnte der Text irgendwo in der Unit verschwinden, aber angeblich braucht ein Benutzer die Anzeige, und da hätte ich gerne etwas "selbstdokumentiertes". Und falls jemand in absehbarer Zukunft die Klasse überarbeiten muß, wäre sicher gestellt, daß die vorhandenen Definitionen genau zu dieser Klasse gehören.

Gruß
K-H

[himitsu]

Konstanten sollten überall gehn, auch solche in Klassen.
Aber meinst du wirklich Delphi 7 (wie du angegeben hast) und die Fehlermeldung hast du natürlich nicht genannt.

Bei Variablen sieht das anders aus, denn da können nur die Globalen einen vordefinierten Wert bekommen.

[edit] Links im Profil steht auch nochmal D7
Nja, da wurde über die Jahre viel geändert, vorallem in Delphi 7, D2005 und D2006 wurde bezüglich Klassen-Variablen/Konstanten/Methoden so Einiges erweitert.
Aber ich hätte gedacht, dass es dennoch mit Arrays geht, also wenn es auch schon im D7 mit const Test: Integer = 666; funktioniert.

PS: Was hier vielleicht "wichtig" ist, denn für den Compiler sind "typisierte Konstanten" in Wirklichkeit "schrebgeschützte Variablen".

Delphi-Quellcode:

const Test = 666;  // "echte" Konstante
const Test: Integer = 666;  // schreibgeschützte Variable ala "var Test: Integer = 666;"