Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

обращение к res файлам [D6]

Friend © (2005-09-29 17:59:00)
создал res файл ( содержимое rc файла
MYRESOURCE RCDATA filename.rtf), как мне теперь этот файл из ресурсов загрузить в richedit, можно ли в res файл загрузить несколько rtf файлов (если да то как? и как к ним потом обращаться?)

Friend (2005-10-03 14:53:00) [1]
Сделал так, как написано, проект откомпилировался, но как только нажимаю Button выскакивает окно ошибки Debugger Excepction Notification

alexbou (2005-10-02 18:52:00) [2]
эээ, точно, "begin..end", итак - если быть совсем точным:

procedureTForm1.SpeedButton2Click(Sender: TObject);
var
ResStream : TResourceStream;
begin
try
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
try
RichEdit1.Lines.LoadFromStream(ResStream);
finally
ResStream.Free;
end
except
ShowMessage('И что будем делать?');
end
end;

begin...end (2005-10-02 18:46:00) [3]
> Incolex © (02.10.05 00:17) [2]
> alexbou (02.10.05 17:14) [3]

ResStream следует создавать до входа в try..finally.

alexbou (2005-10-02 17:14:00) [4]
рефакторинг супер вещь: =)

procedureTForm1.SpeedButton2Click(Sender: TObject);
var
ResStream : TResourceStream;
begin
try
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
RichEdit1.Lines.LoadFromStream(ResStream);
finally
ResStream.Free;
end;
end;

Incolex (2005-10-02 00:17:00) [5]
procedureTForm1.SpeedButton2Click(Sender: TObject);
var
ResStream : TResourceStream;
MyText: TStringList;
begin
try
MyText:=TStringList.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyText.LoadFromStream(ResStream);
RichEdit1.Lines.Text:=MyText.Text;
finally
MyText.Free;
ResStream.Free;
end;
end;

Fay (2005-09-29 18:07:00) [6]
Friend © (29.09.05 17:59)
Findresource/LoadResource/...
F1 + F1 + F1...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »