Ich gebe mal meine Anmerkungen dazu:
Man darf auch
Kommentare in den
SQL-Dateien einbauen.
Diese Kommentare müssen aber vor dem Öffnen der
Query gelöscht werden.
Kommentare sind einzeilig und werden mit
-- oder
// eingeleitet.
Dazu folgende Procedure:
Delphi-Quellcode:
procedure CleanSqlStrings(
SQL:TStrings);
var
s :
string;
i : Integer;
begin
Assert(Assigned(
SQL));
for i :=
SQL.Count-1
downto 0
do
begin
s := Copy(
SQL[i],1 ,2);
if (s = '
--')
or (s='
//')
then
// Kommentarzeile entfernen
SQL.Delete(i);
end;
end;
Und jetzt noch das Ganze zusammengesetzt:
Delphi-Quellcode:
procedure LoadSQLFromResource(
SQL:TStrings;
const ResourceName:
string);
var
tmpStream: TResourceStream;
begin
Assert(Assigned(
SQL));
tmpStream := TResourceStream.Create( HInstance, ResourceName, '
TEXT' );
try
SQL.LoadFromStream(tmpStream );
// Laden
CleanSQLStrings(
SQL);
// Kommentare löschen
finally
tmpStream.Free;
end;
end;