как прочесть изи INI - файла ???

[Zero2525]

Скажите пажалуйста, как вытащить вот из такого ини файла
[Uin]
449393534=Анекдот
435019707=Анекдот

только цифры ??? а что мне нужно конкретнее, это боту присылают сообщение, типа Анекдот , он сохраняет в ини файл, и если пользователь шлет точку, то он обрабатывает её как предпоследнее сообщение, т.е. как Анекдот, это сделано для эеономии времени... А теперь мне нужно сделать ListBox и загрузить в него все юины! Только юины (цифры), я пробовал :

var
lbu: integer
Begin
for lbu:=0 to 50 do                              //
begin                                           //
s:= Ini.ReadString('Uin','');                // ReadSection()
LB.Items.Add(s)                                //
end;

_________________________________
вот так, и вариант в коментариях, но он ругается из-за того что один это тип, а второе массив ) и ничиво не вышло(



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Winnerer]

var
a:TIniFile;
s:tstringlist;
i:integer;
begin
a:=TIniFile.Create('123.txt');
a.WriteString('uin','123456','qwerty');
s:=TStringList.create;
a.ReadSectionValues('uin',s);
for i:=0 to s.Count-1 do
  showmessage(s.Strings[i]);
a.Free;
s.Free; 
end;

или

a.ReadSectionRaw('uin',s);

, под рукой только фрипаскаль.

[phomm]

readsection и F1

[Человек_Борща]

Ну как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  IniParams: TStringList;
  i: Integer;
  myDir: WideString;
begin
  myDir := ExtractFilePath(ParamStr(0));
  IniParams := TStringList.Create;
  ini := TIniFile.Create(myDir + 'uins.ini');
  try
    ini.ReadSectionValues('UIN', IniParams);
    for i := 0 to IniParams.Count - 1 do
    begin
      ListBox1.Items.Add(ini.ReadString('UIN', IniParams.Strings[i], ''));
    end;
  finally
    FreeAndNil(IniParams);
    FreeAndNil(ini);
  end;
end;

[FaTaL]

Если только ЮИНЫ то ReadSection