Textdatei in Ressource und in StringList laden

[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