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.
Ok Vielleicht nicht mit Delphi 7 aber wie wäre es mit:
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