Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Разделить инфо в ListBox

Автор: Sice 10.2.2011, 16:35

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

и т.д.

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

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

Автор: ~FoX~ 10.2.2011, 17:07

Код


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;

Автор: Sice 10.2.2011, 17:29

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

Код

...

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

Автор: ~FoX~ 10.2.2011, 20:18

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

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

)

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

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

Автор: Sice 10.2.2011, 20:35

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

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

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

)

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

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

Нет

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

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

Автор: superVad 10.2.2011, 21:14

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

Код


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