|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как разбить правильно строку?
Подскажите пожалуйста,
Вот на пример у меня есть текст "Привет qw всем rt я робот asd Бонни" И мне нужно что бы при нажатии на "Button1" из "Edit1"(Где и был допустим написан этот текст) перенеслось в "ListBox1" латинские символы то есть в виде: 1 - qw 2 - rt 3 - asd. Помогите пожалуйста. |
#2
|
||||
|
||||
Можно поступить так, загрузить в StringList, указав в качастве разделителя пробел, затем по циклу опросить все строки StringList-а и, если в строке не присутствуют символы больше чем 'z', то копировать в Memo.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
А можно пожалуйста в виде кода если не сложно
|
#4
|
||||
|
||||
Код:
StringList.Delimiter := ' '; StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни"; for I := 0 to StringList.Count - 1 do begin Bol := False; St := StringList.Strings[i]; for J := 1 to Length(St) do if St[J] > 'z' then begin Bol := True; Break; end; if not Bol then Memo1.Lines.Add(St); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 27.03.2012 в 01:18. |
#5
|
||||
|
||||
Цитата:
angvelem Код, скажу тебе, не камельфо, 2 цикла + Break непонятный) Здесь одного цикла хватит за глаза! |
#6
|
||||
|
||||
Конечно кака, на скорую руку писан. Break вполне понятный.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Цитата:
Ну ты наверно тупо руки на клаву положил |
#8
|
|||
|
|||
PHP код:
|
#9
|
|||
|
|||
Я чего то не могу понять я вставляю код и у меня дает ошибку ругается на "type abc = set of char;"
|
#10
|
|||
|
|||
И если можно скиньте пожалуйста наглядный примерчек..
|
#11
|
|||
|
|||
PHP код:
|
#12
|
|||
|
|||
"[Error] Unit1.pas(32): Statement expected but 'TYPE' found" - вот это
|
#13
|
|||
|
|||
PHP код:
|
#14
|
|||
|
|||
а как можно в выводе в листбокс перед анг. буквами нумирацию сделать а то калупал-калупал чето не вышло (
|