Помогите с востановлением строки из Array of byte

← →
axx (2004-01-04 14:28) [0]

Помогите load не работает. Вроде все правильно....

type
TTData =Packed record
ID:Byte;
Data: Array [0..62] of byte;
end;

Procedure Save(tmp:PChar);
var TD:TTData;
begin
FillChar(TD.Data,SizeOF(TD.Data),32);
Move(tmp^,TD.Data,Length(tmp));
end;

Procedure Load()
var str:String; tmp:pchar;TD:TTData;
begin
Move(td.Data,tmp,SizeOF(TD.Data));
str:=PChar(tmp);
end;

← →
axx (2004-01-04 14:31) [1]

Извините . Чтото я протупил :))) про GetMem(Tmp,SizeOF(TD.Data)) забыл. Только написал в форум и дошло хотя полчаса понять не мог (Пара домой блин). Еще Раз сори

Помогите с востановлением строки из Array of byte Найти похожие ветки