На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Главная » 2013»Февраль»22 » Подсчет строк, символов, поиск текста и другое в Delphi
01:23
Подсчет строк, символов, поиск текста и другое в Delphi
Мы будем создавать программу, которая считает сколько слов, строк и символов вы ввели в memo. (см. рисунок)
И так, бросаем на форму компоненты Memo и StatusBar. Сначала создаем три панелей в строке состояния (StatusBar): 0 - Символов: 0 1 - Слов: 0 2 - Строк: 0
Далее прописываем следующие коды:
Цитата
procedure TForm1.Memo1Change(Sender: TObject); Begin n := 0; for i := 0 to Length (Memo1.Text) do begin if (Memo1.text[i]<>' ') and ((Memo1.text[i+1]=' ') or (Memo1.text[i+1]=#13)) then n:=n + 1; end; statusbar1.Panels[1].Text:='Cлов: '+IntToStr(n); statusbar1.Panels[0].Text:='Cимволов: '+IntToStr(Length(Memo1.text)-(Memo1.Lines.Count-1)*2); StatusBar1.Panels[2].Text:='Строк:'+IntToStr(Memo1.Lines.Count); end;
Вот и все! Дерзайте. Кстати, далее приведу несколько примеров по теме...
Цитата
a := Memo1.Lines.Count;// кол-во строк Memo1
Цитата
Для поиска текста Var SelPos: integer; Begin With TFindDialog (Sender) do Begin SelPos: = Pos (FindText, Memo1.Lines.Text); If SelPos > 0 then Begin Memo1.SelStart:= SelPos -1; Memo1.SelLength:= Length (FindText); End else ShowMessage ('Текст "' + FindText + '" не найден'); End;
Это для кнопки открыть и выгрузить в мемо
Цитата
Memo1.Lines.Clear;
With OpenDialog1 do Begin If not Execute then Exit; Memo1.Lines.LoadFromFile (FileName); End
|