VPF::Как сделать, чтобы в комбобокс забивались цифры

Drizhenko

Дата 15.5.2006, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Есть ini файл следующего содержания

[groupe]
150.color=255
151.color=255
22.color=255
23.color=255
24.color=255

Как сделать, чтобы в комбобокс забивались цифры 150, 151, 22, 23,24 из [groupe]?

Romikgy

Дата 15.5.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

с ини файлами умеешь работать?
если да тогда открываешь файл и из группы

Цитата(Drizhenko @ 15.5.2006, 10:59

)

[groupe]

вытаскиваешь строки, далее все что то точки запихиваешь в комбобокс

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

PROeXT

Дата 15.5.2006, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.12.2005
Где: Москва

Репутация: нет
Всего: нет

Методом "тупого перебора"

Код


Var
 MyINI:TIniFile;
 MyStr:TStrings;
 I : Integer;
 Str:String;
begin
 MyIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data.Ini');
 Try
  MyStr:=TSTringList.Create;
  MyIni.ReadSection('groupe',MyStr);
  For I:=0 To MyStr.Count-1 Do
  Begin
   Str:=MyStr.Strings[I];
   Delete(Str,Pos('.',Str),
          Length(Str)-Pos('.',Str)+1);
   MyStr.Strings[I]:=Str;
  End; {For}
  Form1.ComboBox1.Items.AddStrings(MyStr);
 finally
  MyIni.Free;
  MyStr.Free;
 end;

Romikgy

Дата 16.5.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(PROeXT @ 15.5.2006, 11:29

)

Методом "тупого перебора"

А по другому никак smile

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »