Konstante in Klasse?

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