Загрузка строки из памяти в 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;

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 Игорь Шевченко Сенкс... ЗАРАБОТАЛА... :)

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