VPF::Поиск в ini - Форум программистов

eViperEA

Дата 11.5.2008, 18:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте...
При работе с ини файлом у меня возник вопрос как организовать поиск по строчкам...
Вот пример моей программы... (сразу предупреждаю я "любитель")

Код


Ini := TiniFile.Create(label1.Caption+'Pos.ini'); {здесь я даю координаты .ехе проекта...}
 while s<>edit1.Text do 
 begin
  x:=x+1;
  F:=Format('%d' ,[f]);
 s:=ini.ReadString('Pynkt A', f, 'Gorod');
 end;
ShowMessage('F');

код ini
[Pynkt A]
1=Moscow
2=Cheliabinsk
3=Trehgorniy
Почему когда я пишу в edit1.text Trehgorniy он подвисает ... а когда пишу Moscow он находит но в ShowMessage пишет цифру в несколько десятков миллионов...(xx xxx xxx)

Это сообщение отредактировал(а) eViperEA - 12.5.2008, 05:06

Qu1nt

Дата 11.5.2008, 21:51 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  i := 0;
  s := '';
  with TIniFile.Create(Label1.Caption + 'pos.ini') do
  begin
    while s <> Edit1.Text do
    begin
      Inc(i);
      s := ReadString('Pynkt A', IntToStr(i), '');
      if s = '' then
      begin
        i := - 1;
        Break;
      end;
    end;
    Free;
  end;
  ShowMessage(IntToStr(i));
end;

Ы?

eViperEA

Дата 12.5.2008, 05:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо большое я ж сказал что я "любитель" smile

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