Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Июл

Загрузка ресурса в RichEdit

Posted by Chas under Delphi

Проблема такая, при загрузки ресурса в RichEdit выбивает ошибку

Volkogriz
Всем спасибо разобрался спустя ночь

var

LinesLoad:LongWord;

LinesStream:TStringStream;

begin

RichEdit1.Clear;

begin

LinesLoad:= FindResource( hInstance, 'Proj',RT_RCDATA);

LinesLoad := LoadResource(hInstance,LinesLoad);

LinesStream:=TStringStream.create(StrPas(PChar( LinesLoad)));

begin

richedit1.Lines.LoadFromStream(LinesStream);

begin

LinesStream.free;

FreeResource(LinesLoad);

end;

end;

end;

end;

bokus
у меня с твоим кодом вопросики повылазили
и сделал вот так вот

procedure TBokus_UtilKad56_Glav_Form.LoadResRTF(Sender: TObject);

var

  ResStream : TResourceStream;

  NameRTF   : PWideChar;

begin

  NameRTF:=pchar(Copy((Sender as  TComponent).Name,3,100));

  RE_Details.Clear;

  if FindResource(hInstance, NameRTF, 'RTF') <> 0 then begin

    ResStream:=TResourceStream.Create(hInstance, NameRTF, 'RTF');

    RE_Details.Lines.LoadFromStream(ResStream);

    ResStream.Free;

  end

  Else

    RE_Details.Text:='Описание';
end;

тема на форуме