Вот так грузится: (загонял текстовые файлы)
Содержимое RCфайла (Dat.rc)
Код:
Dat01 RXDATA 01pi.dat
Dat02 RXDATA 02pi.dat
Dat03 RXDATA 03pi.dat
Dat04 RXDATA 04pi.dat
Dat05 RXDATA 05pi.dat
Dat06 RXDATA 06pi.dat
Dat07 RXDATA 07pi.dat
В юните формы
Код:
...
{$R DAT.RES}
...
procedure TForm1.Button1Click(Sender: TObject);
var
ResHandle, MemHandle: THandle;
MemStream: TMemoryStream;
ResPtr: PByte;
ResSize: Longint;
begin
ResHandle:= FindResource(hInstance, PChar(Edit1.Text {'Dat01'}),'RXDATA');
MemHandle:= LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
// Для примера
memo1.Lines.LoadFromStream(memstream);
MemStream.Free;
end;