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

← →
Friend © (2005-09-29 17:59) [0]

создал res файл ( содержимое rc файла
MYRESOURCE RCDATA filename.rtf), как мне теперь этот файл из ресурсов загрузить в richedit, можно ли в res файл загрузить несколько rtf файлов (если да то как? и как к ним потом обращаться?)

← →
Fay © (2005-09-29 18:07) [1]

Friend © (29.09.05 17:59)
Findresource/LoadResource/...
F1 + F1 + F1...

← →
Incolex © (2005-10-02 00:17) [2]

procedure TForm1.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;

← →
alexbou (2005-10-02 17:14) [3]

рефакторинг супер вещь: =)

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

← →
begin...end © (2005-10-02 18:46) [4]

> Incolex © (02.10.05 00:17) [2]
> alexbou (02.10.05 17:14) [3]

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

← →
alexbou (2005-10-02 18:52) [5]

эээ, точно, "begin..end", итак - если быть совсем точным:

procedure TForm1.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;

Сделал так, как написано, проект откомпилировался, но как только нажимаю Button выскакивает окно ошибки Debugger Excepction Notification

обращение к res файлам Найти похожие ветки