Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.16;
Скачать: 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 вся ветка

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
1-49622
miracle_fox
2004-01-04 22:32
2004.01.16
как переписать итемы из листвью в файл при закрытии программы


3-49410
Mordsit
2003-12-19 11:34
2004.01.16
SQL-запрос


1-49502
Юрий Зотов
2004-01-06 12:00
2004.01.16
Прорисовка заголовка окна в различных стилях.


3-49391
Крутыш
2003-12-20 15:10
2004.01.16
Action какие может принимать значения


1-49559
Zillah
2004-01-05 14:35
2004.01.16
JEDI Library несколько вопросов...