|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2011, 10:00 | #1 |
Регистрация: 09.04.2011
Сообщений: 7
|
Вывод строк
допустим ввожу я слово надо вывести строки в которых это слово встречается. Выводится. Но почему то каждая строка по 2 раза.
begin Memo4.Clear; n:=length(edit2.Text); for i:=0 to Memo2.Lines.Count-1 do begin s:=Memo2.Lines[i]; if Length(s)>0 then begin for k:=1 to length(s) do begin j:=k; while j<=length(s) do begin c:=copy(s,j,n); if c=edit2.text then crypts:=s ; j:=j+n; end; end; end; memo4.lines.Add(crypts); end; end; |
29.04.2011, 10:53 | #2 | |
Форумчанин
Регистрация: 05.02.2009
Сообщений: 324
|
Цитата:
Код:
Тяжело быть бестолковым.....
|
|
29.04.2011, 10:58 | #3 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,882
|
настоятельно : пройдитесь трассировкой(F7) !
если не поможет - то весь код проектом в студию по данному алгоритму у меня вопросов не возникло, но в уме трассировать как-то не торт, так что могу и ошибиться есть мысль - не правильно поставлен Add среди end'ов, но проверять - Вам |
29.04.2011, 11:11 | #4 |
Форумчанин
Регистрация: 26.07.2009
Сообщений: 489
|
Нужно разбивать сложный код на подпрограммы, где каждая подпрограммы выполяет свою задачу. После этого легко будет отладить что и где не так
Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ассемблер, вывод строк | M@Z@X@K@ | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 21.04.2010 19:57 |
Поиск и вывод строк из файла | samCS | PHP | 8 | 10.03.2010 04:07 |
Вывод строк, лабораторная | Sonyalex90 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 12 | 03.12.2009 22:46 |
Ввод/вывод строк | anGeee | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 04.09.2009 21:58 |
вывод GridView строк | Shouldercannon | Общие вопросы Delphi | 0 | 25.02.2009 12:07 |