VPF::Разделить инфо в ListBox - Форум программистов

Sice

Дата 10.2.2011, 16:35 (ссылка)

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

Загрузка ...

Радио Онлайн

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

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

Доброго времени суток.
Ребята,помогите пожалуйста разобраться с ListBox.
В ListBox из файла заносится информация вида:
12345:пароль
12346:пароль

и т.д.

подскажите пожалуйста, как разбить эту информацию на части в отдельные переменные, то есть до двоеточия (12345) и после него (пароль)

заранее большое спасибо.

~FoX~

Дата 10.2.2011, 17:07 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Код


var
  i, ip: integer;
  gs, s1, s2: string;
begin
  for i := 0 to ListBox1.Items.Count - 1 do begin
    gs := ListBox1.Items[i];
    ip := LastDelimiter(':', gs);
    s1 := copy(gs, 1, ip-1);
    s2 := copy(gs, ip+1, Length(gs));
    ShowMessage('s1='+s1+' s2='+s2 );
  end;
end;

Это сообщение отредактировал(а) ~FoX~ - 10.2.2011, 17:11

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

…множественность никогда не следует полагать без необходимости…

Sice

Дата 10.2.2011, 17:29 (ссылка)

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

Загрузка ...

Радио Онлайн

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

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

Дабы не создавать тему, напишу здесь. Пытаюсь сделать простенький чекер icq, вот код:

Код

...

Ошибок никаких нету, но и действий тоже, он даже не коннектится, насколько я понимаю.
В чем проблема, подскажите новичку пожалуйста, ребята.

Это сообщение отредактировал(а) Sice - 13.2.2011, 21:45

~FoX~

Дата 10.2.2011, 20:18 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

Что то похоже на брутфорс..... Здесь за это могут и по шапке настучать...

Цитата(Sice @ 10.2.2011, 18:29

)

он даже не коннектится, насколько я понимаю.

С чего такие выводы?

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

…множественность никогда не следует полагать без необходимости…

Sice

Дата 10.2.2011, 20:35 (ссылка)

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

Загрузка ...

Радио Онлайн

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

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

Цитата(~FoX~ @ 10.2.2011, 20:18)

Что то похоже на брутфорс..... Здесь за это могут и по шапке настучать...

Цитата(Sice @ 10.2.2011, 18:29

)

он даже не коннектится, насколько я понимаю.

С чего такие выводы?

Нет

Не брутфорс это smile

если кинуть два едитбокса, кнопку, icqclient и лейбл
ввести в боксы uin и пароль, то все работает, а с листобоксом почему-то не хочет
не коннектится, потому как фаерволл не спрашивает заблокировать\разблокировать\отменить
а если сделать так, как я показал (код выше), то ничего не происходит не соединяет ни с чем и фаер не вылетает smile

superVad

Дата 10.2.2011, 21:14 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

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

ListBox1.Items это по сути TStrings

Код


ListBox1.Items.NameValueSeparator := ':';
ListBox1.Items.Names[индекс];//имя
ListBox1.Items.Values[индекс];//пароль

Это сообщение отредактировал(а) superVad - 10.2.2011, 21:15

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