Помогите с реестром!!!!

← →
Vasechkin © (2002-11-23 19:10) [0]

Как считать из реестра вот такую запись
надо вычленить 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;

← →
Anatoly Podgoretsky © (2002-11-23 19:13) [1]

Result := 11;

← →
Vasechkin © (2002-11-23 19:36) [2]

Не вместо 11 может быть любое число

← →
TTCustomDelphiMaster © (2002-11-23 19:52) [3]

F1 - pos, copy, StrToInt и т.д.

← →
Vasechkin © (2002-11-23 20:16) [4]

А поконкретнее с примером

← →
Anatoly Podgoretsky © (2002-11-23 20:26) [5]

Ты про это не говорил, даже наоборот "мне нужно число 11"
Что является характерным признаком числа, случайно не скобки?
Если да то два раза pos

← →
Vasechkin © (2002-11-23 23:26) [6]

А может дашь примерчик

← →
TTCustomDelphiMaster © (2002-11-24 10:24) [7]

i := StrToIntDef(copy(count, pos("(", count)+1, pos(")", count)-pos("(", count)-1), -1);

← →
Vasechkin © (2002-11-24 10:33) [8]

Спасибо щас посмотрю

← →
Vasechkin © (2002-11-24 10:58) [9]

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 & integer Reg.CloseKey; end; Reg.Free; end;

← →
Anatoly Podgoretsky © (2002-11-24 11:04) [10]

Не используй StrToIntDef, прямо гони

Щас попробую

Как?????
Нифига не получется что-то.
У кого THE BAT! стоит попробуйте через мой код считать данные из реестра. В чем у меня ошибка?

← →
1vtrevetrvyrt (2002-11-24 19:59) [13]

← →
Demon[DZ] (2002-11-26 15:22) [14]

А если попробовать так:
Count := Reg.ReadInteger("count");

Помогите с реестром!!!! Найти похожие ветки