Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с реестром!!!! [D5, Win95/98, WinME]

Vasechkin © (2002-11-23 19:10:00)
Как считать из реестра вот такую запись
надо вычленить 11
Count 0x0000000b (11)//мне нужно число 11

var
count: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey("Software\rit\the bat!\Users Depot",true) then
begin
count := Reg.ReadString("Count");
ListBox1.Items.Add(count);
Reg.CloseKey;
end;
Reg.Free;
end;

Demon[DZ] (2002-11-26 15:22:00) [1]
А если попробовать так:
Count := Reg.ReadInteger("count");

1vtrevetrvyrt (2002-11-24 19:59:00) [2]
2

Vasechkin (2002-11-24 14:27:00) [3]
Как?????
Нифига не получется что-то.
У кого THE BAT! стоит попробуйте через мой код считать данные из реестра. В чем у меня ошибка?

Vasechkin (2002-11-24 12:14:00) [4]
Щас попробую

Anatoly Podgoretsky (2002-11-24 11:04:00) [5]
Не используй StrToIntDef, прямо гони

Vasechkin (2002-11-24 10:58:00) [6]
procedure TForm1.Button1Click(Sender: TObject); var count: string; i: integer; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey("Software\rit\the bat!\Users Depot",true) then begin count := Reg.ReadString("count"); i := StrToIntDef(copy(count, pos("(", count)+1, pos(")", count)-pos("(", count)-1), -1); Edit1.Text := i;// КаК????????????? string & integerReg.CloseKey; end; Reg.Free; end;

Vasechkin (2002-11-24 10:33:00) [7]
Спасибо щас посмотрю

TTCustomDelphiMaster (2002-11-24 10:24:00) [8]
i := StrToIntDef(copy(count, pos("(", count)+1, pos(")", count)-pos("(", count)-1), -1);

Vasechkin (2002-11-23 23:26:00) [9]
А может дашь примерчик

Anatoly Podgoretsky (2002-11-23 20:26:00) [10]
Ты про это не говорил, даже наоборот "мне нужно число 11"
Что является характерным признаком числа, случайно не скобки?
Если да то два раза pos

Vasechkin (2002-11-23 20:16:00) [11]
А поконкретнее с примером

TTCustomDelphiMaster (2002-11-23 19:52:00) [12]
F1 - pos, copy, StrToInt и т.д.

Vasechkin (2002-11-23 19:36:00) [13]
Не вместо 11 может быть любое число

Anatoly Podgoretsky (2002-11-23 19:13:00) [14]
Result := 11;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »