| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Bufer
P@vel © (2004-08-25 14:22:00)Ув. Мастера. Дело такое. Надо сделать такую процедуру, что бы она добавляла буфер в MemoryStream. Причём неизвестно какого типа этот буфер. Придумал такое решение.
procedure (Bufer: Pointer);
var
Len:word;
stream:TMemoryStream;
begin
stream:= TmemoryStream.Create;
Len := SizeOf(Bufer);
Stream.Write(Bufer,Len)
end;
Только вот берёт он размер указателя. Как правельно реализовать эту задумку?
P@vel (2004-08-25 20:09:00) [1]Сенкс. Буду размер передовать. А типизированый не подходит ибо я не знаю, что за тип.
Ega23 (2004-08-25 14:33:00) [2]На [1] внимания не обращать, ибо бред.
TUser (2004-08-25 14:33:00) [3]Сделай типизированный указатель, и [1]
афвуд (2004-08-25 14:32:00) [4]Ну нифига се. А откудова он размер то возьмёт того, чего кладёт? Передавай в функцию размер.
begin...end (2004-08-25 14:31:00) [5]Размер того, что ты разместил по адресу Bufer, знаешь только ты.
Ega23 (2004-08-25 14:30:00) [6]SizeOf(Bufer^)
| |
