Textdatei in Ressource und in StringList laden

[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;