Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#7

Re: Resourcen in TStringlist konvertieren

  Alt 25. Feb 2006, 09:13
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
  Mit Zitat antworten Zitat