Форум: "Потрепаться";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
ВнизWriteBinaryData Найти похожие ветки
← →
aga (2003-03-11 15:43) [0]Может кто-то покажет как пользоватся сабжом? уменя с етой ф-цией проблемы - не читает, мне нужно record записать.
← →
Anatoly Podgoretsky (2003-03-11 15:50) [1]Ты сначала свой пример приведи и мы его исправим, а то будешь задавать дополнительный воепрос, что такое S, что такое X
← →
aga (2003-03-11 17:34) [2]TInfo = record
b: boolean;
Name: string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
buff.CanDelete := false;
buff.Name := "u";
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey("J",true);
Reg.WriteBinaryData("info",buff,SizeOf(buff));
Reg.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey("J",true);
Reg.ReadBinaryData("info",buff1,sizeOf(buff1));
Edit1.Text := buff1.Name; //показывает бяку
reg.Free;
end;
← →
Ketmar (2003-03-11 17:41) [3]>aga © (11.03.03 17:34)
"как одел я портупею -- так уменю и умнею" (ц)... шагом марх в хэлп -- читатб про ANSIStrings.
Satanas Nobiscum! 11-Mar-XXXVIII A.S.
← →
Anatoly Podgoretsky (2003-03-11 17:45) [4]Тут сразу возникает два вопроса:
Что такое buff, buff1, если это переменная типа TInfo, то ее бесполезно писать в реестр, поскольку Name типа string, то есть указатель
Во вторыъ почему ты пишешь в ключ "J", это или вообще в голове секции или вообще черт знает где, поскольку относительный путь.
Вот исправь эти две вещи и все будет в порядке
← →
aga (2003-03-13 16:27) [5]А какого типа толжна быть переменная Name?
И можно ли пример?
← →
Anatoly Podgoretsky (2003-03-13 16:37) [6]Так двоичные данне, все твое
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c