Texte in Quellcode einfügen

[Bummi]

wir bevorzugen ebenfalls die Resourcen

Anhand eines Beispiels

Delphi-Quellcode:

{$R 'MySQLS.res' 'resources\MySQLS.rc'}



function LoadSqlResource(resourceName: string): string;
var
  rs: TResourceStream;
  sl, sl2 : TStringList;
  s : string;
begin
  rs := nil;
  sl := nil;
  sl2 := nil;

  try
    sl := TStringList.Create;
    sl2 := TStringList.Create;
    rs := TResourceStream.Create(hinstance, resourceName, RT_RCDATA);

    rs.Position := 0;
    sl.LoadFromStream(rs);

    for s in sl do
    begin
      if not StartsText('--', s) then
        sl2.Add(s);
    end;
  finally
    if Assigned(sl) then sl.Free;
    if Assigned(rs) then rs.Free;
  end;

  Result := sl2.Text;
  if Assigned(sl2) then sl2.Free;
end;

im Unterordern resources eine Datei MySQLS.rc mit Inhalt

Code:

ModuleCodes_Selectieren         RCDATA "SelModuleCodes.sql"
OffenePosten_Belege_Selectieren RCDATA "SelOffenePostenBelege.sql"
OffenePosten_Kunden_Selectieren RCDATA "SelOffenePostenKunden.sql"
Kundeninfo_Selectieren          RCDATA "SelKundeninfo.sql"
Rechnungen_Selectieren          RCDATA "SelRechnungen.sql"
Kreditor_Selectieren            RCDATA "SelKreditor.sql"

, sowie die aufgeführten Dateien aus obiger Datei