Как правильно использовать Команду MOVE ?

← →
IgorKuz © (2003-01-23 16:15) [0]

type
PMyRec = ^TMyRec;
TMyRec = record Data1 : word; Data2 : integer; end;

function GetBufr (P : pointer) : TMayRec;
var
PR : pointer;
N : TMyRec;
begin
Move(P,PR^,SizeOf(TMyRec));
// А вот Здесь уже не работает ?
N:=PMyRec(PR)^;
// ....
end;
procedure MyProc;
var
PR : pointer;
N : TMyRec;
begin
GetMem(P,100);
// .... Заполняю буфер
Move(P,PR^,SizeOf(TMyRec));
// Здесь все работает
N:=PMyRec(PR)^;
GetBufr(P);
//.....
end;
begin
MyProc;
end;
В функции GetBufr Данные в N записываются наполовину верно

← →
Игорь Шевченко © (2003-01-23 16:17) [1]

Move(P^,PR^,SizeOf(TMyRec));

← →
gsu © (2003-01-23 16:18) [2]

+GetMem"s

← →
REA © (2003-01-23 16:26) [3]

Чтобы недоразумений не было использовать CopyMemory из W32API

← →
Игорь Шевченко © (2003-01-23 16:28) [4]

var
PR : pointer;
N : TMyRec;
begin
Move(P,PR^,SizeOf(TMyRec));

А PR, конечно, инициализировать не надо. И warnings у компилятора отключен по умолчанию ? В сад!

← →
Anatoly Podgoretsky © (2003-01-23 16:29) [5]

К Чубайсу

← →
IgorKuz © (2003-01-23 16:33) [6]

Поправка после GetMem(P,100) есть GetMem(PR,SizeOf(TMyRrec))

← →
Anatoly Podgoretsky © (2003-01-23 16:46) [7]

Не видать определения P

И абсолютно не понятен смысл всех этих танцев с бубном:
GetBufr - абсолютно ничего не делает кроме Access Violation
Может подразумевалось
function GetBufr(p: pointer; Index: integer): TMyRec;
begin
inc(DWORD(p),Index*sizeof(TMyRec));
move(p^,Result,sizeof(TMyRec));
end;
??????????
З.Ы. Ты насчет области видимости переменных слышал??? N и PR в GetBufr, и N и PR в MyProc - это абсолютно разные переменные... А P совпадают только потому, что глобальная P передается в аргументе P...

Han_Malign
Это написано лишь для примера
мне нужно работать с указателями а типы считования могут быть разные
на счет видимости переменных я слышал :) . Одинаковые
названия просто для простоты понимания.

Как правильно использовать Команду MOVE ? Найти похожие ветки