вставка текстового ресурса delphi

[Yogik™]

Нашел код использования ресурсов в программе, но правда рабочий только для картинок. Хочу использовать в качетве ресурса txt файл, что тут нуждается в редактировании?

procedure TForm1.Load;
VAR
     ResStream: TResourceStream;
Begin
 f:=TStrings.Create;
 ResStream:=TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
try
 f.LoadFromStream(ResStream);
finally
 ResStream.Free;
end;
end;

При компиляции окрашивает строку

 f.LoadFromStream(ResStream);

[KORN]

ResStream:=TResourceStream.Create(H instance, '1', RT_RCDATA);

[Yogik™]

Нет, эту строчку он пережевывать отказывается =)
Ругается, что ресурс "1" не найден.

А вообще, правильно использовать TStrings? Быть может для это существует какой-нибудь другой объект, типа textfile?

[KORN]

перед копиляцией файла создается файл *.rc и в нем пишется, например:
SETUP RCDATA C:\1.txt
далее создаем res файл и:

  res:=TResourceStream.Create(Hinstance, 'SETUP', RT_RCDATA);
  memo1.lines.loadfromstream(res);
  res.Free;

попробуй назвать словом а не цифрой

[Yogik™]

Изменил идентификатор вместо цифры "1" на слово "slova".
Теперь данная строка работает, но мы вернулись к тому, откуда начали =)

procedure TForm1.Load;
VAR
     ResStream: TResourceStream;
Begin
 f:=TStrings.Create;
 ResStream:=TResourceStream.Create(HInstance, 'slova', RT_RCDATA);
try
 f.LoadFromStream(ResStream);
finally
 ResStream.Free;
end;
end;

Снова окрашивает строку (AbstractError):

 f.LoadFromStream(ResStream);

[KORN]

1) f у тебя глобальная переменная7
2) f:=TStringlist.Create;

[Yogik™]

Изменил "TStrings" на "TStringlist"
Все работает.
Безумно благодарен! Спасибо :-)