Resourcen in TStringlist konvertieren

[marabu]

Hallo Alexander,

eigentlich brauchst du nicht viel Code. Nehmen wir an du hast eine RC-Datei TEXT.RC mit diesem Inhalt:

Code:

TEXT1 RCDATA LOADONCALL "C:\Daten\Texte\Text1.txt"

Wenn du sie mit BRCC32 kompiliert hast, dann kannst du den Inhalt der Datei Text1.txt so einlesen:

Delphi-Quellcode:

{$R TEXT.RES}

const
  RN_TEXT = 'TEXT1';

procedure TDemoForm.LoadButtonClick(Sender: TObject);
var
  rs: TResourceStream;
begin
  with TResourceStream.Create(0, RN_TEXT, RT_RCDATA) do
  begin
    Memo.Lines.LoadFromStream(rs);
    Free;
  end;
end;

Grüße vom marabu