Textdatei in Ressource und in StringList laden

[Cubysoft]

Hallo,

ich würde meine Sprachdateien (Textdateien) gerne direkt in das Programm einbinden. Ich habe die Dateien bereits als RCDATA eingebunden, finde aber irgendwie keine Möglichkeit die Daten in eine StringList zu laden. Leider hat die StringList ja keine .LoadFromRessource Funktion...

Wisst ihr, wie das geht? Würdet mir echt helfen..

Danke

[dataspider]

Zitat von Cubysoft:

Hallo,

Leider hat die StringList ja keine .LoadFromRessource Funktion...
Wisst ihr, wie das geht? Würdet mir echt helfen..

Danke

...aber LoadFromStream

Ich lade wie folgt eine Sprachdatei in den Localizer von DevExpress:

Delphi-Quellcode:

procedure DXLocalize;
Var
  AStream:  TResourceStream;
  AHandle: THandle;
  ADllFileName: string;
  ALocaleId: Integer;
begin

  ADllFileName := ExtractFilePath(Application.ExeName) + dxLangDLL;
  ALocaleId := AppConfig.ReadInteger('System', 'LocaleId', 1031);
  Assert(FileExists(ADllFileName));
  if not FileExists(ADllFileName) then
    Exit;
  AHandle := LoadLibraryEx(PChar(ADllFileName), 0, LOAD_LIBRARY_AS_DATAFILE);
  if AHandle > HINSTANCE_ERROR then
  begin
    try
      AStream := TResourceStream.Create(AHandle, 'CXLOCALIZER', RT_RCDATA);
      try
        if AStream.Size > 0 then
        begin
          AStream.Position := 0;
          Localizer.LoadFromStream(AStream);
          Localizer.Locale := ALocaleId;
          Localizer.Active := True;
        end;
      finally
        AStream.Free;
      end;
    finally
      FreeLibrary(AHandle);
    end;
  end
  else
    raise Exception.Create('Fehler beim Laden ' + ADllFileName);
end;

Ich hoffe, das Beispiel hilft dir weiter

Frank

[idefix2]

ungetestet auf die Schnelle

Delphi-Quellcode:

procedure CreateStringListFromResource(const ResourceName: String; const SL: TStringList);
var
  s: string;
begin
with TResourceStream.Create(HInstance, ResourceName, RT_RCDATA) do
     begin 
     setlength(s, Size div 2);  // Widestring braucht 2 bytes pro Zeichen
     Read(s[1], Size); 
     free;
     end;
SL.text := s;
end;