Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

Загрузка строки из памяти в TMemo   Найти похожие ветки 

← →
Druid   (2004-05-14 22:09) [0]

Доброе время суток. Столкнулся с такой вещью.
Загрузил из рессурсов в память текст, но не могу понять как теперь его поместить в TMemo


var
RES:        HRSRC;
HandlRes:   HGLOBAL;
begin
 RES := NULL;
 RES := FindResource(hInstance,"CHANGE",RT_RCDATA);
 if RES = 0 then
 else
   begin
     HandlRes  := LoadResource(hInstance,RES);
     ChangrLog.Clear;
     ...
   end;


А как теперь в ChangrLog поместить загруженный текст

Заранее спасибо...

---

← →
Style ©   (2004-05-14 22:13) [1]

GlobalLock??

---

← →
Druid   (2004-05-14 22:44) [2]

не выходит

var
RES:        HRSRC;
HandlRes:   HGLOBAL;
buffer:     ^String;
begin
RES := NULL;
RES := FindResource(hInstance,"CHANGE",RT_RCDATA);
if RES = 0 then
else
  begin
    HandlRes  := LoadResource(hInstance,RES);
    ChangrLog.Clear;
    Buffer    := GlobalLock(HandlRes);
    ChangrLog.Lines.Add(Buffer^);
  end;


---

← →
Style ©   (2004-05-14 22:56) [3]

Ну почти :)
Попробуй так:

var
 RES:        HRSRC;
 HandlRes:   HGLOBAL;
 buffer:     pchar;

begin

 memo1.Lines.Clear;
 RES := FindResource(hInstance,"TForm1",RT_RCDATA);

 if RES = 0 then
   ShowMessage("Error Loading Resource")
 else
 begin
   HandlRes  := LoadResource(hInstance,RES);
   try
     Buffer := GlobalLock(HandlRes);
     try
       memo1.Lines.Add(Buffer);
     finally
      GlobalUnLock(HandlRes);
     end;
   finally
     FreeResource(HandlRes);
   end;

end;

---

← →
Игорь Шевченко ©   (2004-05-14 22:59) [4]

var X: PChar;
........
   HandlRes  := LoadResource(hInstance,RES);
   X := PChar(LockResource(HandlRes));
   Memo.Lines.Add(X);
..........

?

---

← →
Druid   (2004-05-14 23:06) [5]

to Style and Игорь Шевченко Сенкс... ЗАРАБОТАЛА... :)

---

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

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.055 c