Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Stringlist add ResourceStream (https://www.delphipraxis.net/46310-stringlist-add-resourcestream.html)

Lannes 22. Mai 2005 15:43


Stringlist add ResourceStream
 
Hallo,

wie kann ich -möglichst ohne weitere Umwege-
Daten aus eine Resource an eine Stringliste anhängen?

Mein bisheriger Code(Ausschnitt):
Delphi-Quellcode:
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
  //SLStart.??????? LoadFromStream(rs);<----------??????
  finally
  rs.Free;
  end;
Schönen Dank im Voraus,

//edit SLSuchen.add durch SLStart.add ersetzt

Lannes 23. Mai 2005 09:53

Re: Stringlist add ResourceStream
 
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 :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz