|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Рассортировать номера
Привет форумчане, В общем столкнулся я с такой задачей.
В Memo1 строчками написаны номера сотовых телефонов. Например: 89098362233 38087633662 89992844423 задача состоит в том что бы чтобы рассортировать их в memo2 и в memo3 В мемо2 должны попасть номера начинающиеся с "89" В мемо3 с "38" Как это сделать? |
#2
|
||||
|
||||
Код:
var i: integer; s: string; begin Memo2.Clear; Memo3.Clear; for i := 0 to Memo1.Lines.Count-1 do begin s:= Memo1.Lines[i]; if s[1] + s[2] = '89' then Memo2.Lines.Add(s); // или if Copy(s, 1, 2) = '38' then Memo3.Lines.Add(s); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
vastray (18.03.2016)
|
#3
|
|||
|
|||
Цитата:
|