Скачать: CL | DM;

Помогите с востановлением строки из 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)) забыл. Только написал в форум и дошло хотя полчаса понять не мог (Пара домой блин). Еще Раз сори

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c