SQL Dateien als Resource einbinden.

[shmia]

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;