Stringlist add ResourceStream

[Lannes]

Hallo,

scheint wohl nicht ohne Umwege zu gehen.

Wenn es jemand gebraucht, hab es jetzt so gelöst:

Delphi-Quellcode:

procedure XXX;
var rs: TResourceStream;
    SLStart, SLTemp : TStringlist;
begin
  SLStart := TStringlist.Create;
  SLTemp := TStringlist.Create;
  try
    rs := TResourceStream.Create(hinstance, 'TXT_START', RT_RCDATA); 
    try 
      SLStart.LoadFromStream(rs); 
    finally 
      rs.Free; 
    end;
//... 
    SLStart.add('diese, und noch mehr Zeilen');
//... 
    rs := TResourceStream.Create(hinstance, 'TXT_START2', RT_RCDATA); 
    try
      SLTemp.LoadFromStream(rs);    //<----------
      SLStart.AddStrings(SLTemp);   //<----------
    finally
      SLTemp.Clear; 
      rs.Free; 
    end;
//... Daten weiter verarbeiten
  finally
    SLStart.Free;
    SLTemp.Free;
  end;
end;

Vielen Dank für eventuelle Bemühungen