|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
я в самом начале изучения delphi. строки
задача:
предложение состоит из слов-строк, нужно найти определенное слово. причем чтоб это слово можно было в любой момент изменить. просто я плохо соображаю. |
#2
|
|||
|
|||
Т.е. каждое слово - на отдельной строке?
Ну загрузи их тогда в TStringList и дальше IndexOf(). |
#3
|
||||
|
||||
Нее, если "в самом начале изучения", то скорее всего одна строка)
Тут легче всего находить позицию вхождения искомого слова в строку, после чего без проблем его редактировать/удалять и т.д. А легче пользуйся диалогом "Найти и заменить" Алкоголик-аморал, явная угроза обществу Блин, я уже местный, а все равно нифига не знаю... |
#4
|
||||
|
||||
Ищи по форуму, такие темы неоднократно поднимались...И дублировать уже набранный код просто неохота...
В начале был Бит, потом Байт и только потом появилось Слово... |
#5
|
|||
|
|||
хорошо, всем спасибо))
|
#6
|
||||
|
||||
Код:
function ReplaceSub(str, sub1, sub2: string): string; var aPos: Integer; rslt: string; begin aPos := Pos(sub1, str); rslt := ''; while (aPos <> 0) do begin rslt := rslt + Copy(str, 1, aPos - 1) + sub2; Delete(str, 1, aPos + Length(sub1) - 1); aPos := Pos(sub1, str); end; Result := rslt + str; end; Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |
#7
|
|||
|
|||
hkdkest, вообще-то, есть такая процедура. StringReplace называется.
|
#8
|
||||
|
||||
Насколько я понял надо менять слово для поиска.
Для этого на форму бросаешь Edit в который пишешь слово. |