Скачать: CL | DM;

обращение к 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;

---

← →
Friend ©   (2005-10-03 14:53) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.967 c