Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Май

Как прочесть параметры из ini файла

Posted by Chas under Топик-обзор

Скажите пажалуйста, как вытащить вот из такого ини файла

 [Uin]

 449393534=Анекдот

 435019707=Анекдот

только цифры ?

Человек_Борща:
Ну как-то так:

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, ''));

    end;

  finally

    FreeAndNil(IniParams);

    FreeAndNil(ini);

  end;

end;

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);

a.Free;

s.Free;

end;

или