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]

Так двоичные данне, все твое

WriteBinaryData Найти похожие ветки