| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

пРОБЛЕМА С listbox

defen ©   (2009-09-28 15:59:00) 

Есть строки в listBox:
\

Из них надо достать шестнадцатиричное значение 6&1946012f и 121006002C63D402. Использовал
S:='##?#USBSTOR#Disk&Ven'; with ListBox1 do
  ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(S));

но, как видитие не получил полноценного результата... Значения должны выводиться во второй ListBox, но это не критично, если знаете другой способ, помогите пожалуйста! Заранее спасибо.

---

Игорь Шевченко   (2009-09-28 16:46:00) [1]

нет у тебя с listbox проблемой, читай правила форума и учись правильно задавать вопрос

---

Юрий Зотов   (2009-09-28 16:39:00) [2]

Я все же полагаю, что использование регулярных выражений в такой детской задачке - это стрельба из пушки по воробьям. Каждый способ решения хорош по-своему и в данном случае написать десяток элементарных строк гораздо проще и быстрее, чем изучать регвыражения.

Ну не нужен экскаватор для того, чтобы наполнить песком игрушечное ведерко. Совочек нужен, а экскаватору оставим котлованы - это его работа.

uses
 StrUtils;

procedure TForm1.FormDblClick(Sender: TObject);
var
 S: string;
 i, P5, P6: integer;
begin
 if ListBox1.ItemIndex >= 0 then
 begin
   S := ListBox1.Items[ListBox1.ItemIndex];
   P5 := 0;
   for i := 1 to 5 do
     P5 := PosEx('#', S, P5 + 1);
   P6 := PosEx('&0#{', S, P5 + 1);
   S := Copy(S, P5 + 1, P6 - P5 - 1);
   ListBox2.Items.Add(S)
 end
end;


---

defen   (2009-09-28 16:33:00) [3]

Попробую...

---

Сергей М.   (2009-09-28 16:21:00) [4]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=163

---

defen   (2009-09-28 16:10:00) [5]

уважаемые, я конечно все понимаю, но нельзя ли конкретизировать свои ответы. Я не особо хорошо знаю язык, а програмированием занимаюсь от случая к случаю. Спасибо...

---

Юрий Зотов   (2009-09-28 16:09:00) [6]

1. Берем всю строку
2. В ней находим позиции 5-го и 6-го символов #
3. Берем подстроку между этими позициями

---

Сергей М.   (2009-09-28 16:06:00) [7]

TRegExpr

---

clickmaker   (2009-09-28 16:05:00) [8]

регулярные выражения

---

Наверх