|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.03.2014, 15:18 | #1 |
Новичок
Джуниор
Регистрация: 08.03.2014
Сообщений: 4
|
Программа считающая количество символов в строке.
Помогите написать программу, которая будет считать количество символов в строке, вводимых с клавиатуры.
|
08.03.2014, 15:56 | #2 |
Старожил
Регистрация: 03.01.2014
Сообщений: 2,870
|
Наработки?
|
08.03.2014, 16:04 | #3 |
Новичок
Джуниор
Регистрация: 08.03.2014
Сообщений: 4
|
Делал по учебнику, но там подсчитывается количество слов в строке Function CountWord(Const s:String):Integer; var S1 : string; K,i : integer; Begin S1:=Trim(S); K:=0; for i:=1 to length(S1) do if s1[i]=' ' then K:=K+1; Result:=K+1; End; procedure TForm1.Button1Click(Sender: TObject); var S,S1: string; P,K,i:integer; begin S:=Edit1.Text; Edit2.Text:=IntToStr(CountWord(S)); end; Как сделать, чтобы программа подсчитывала количество символов? |
08.03.2014, 16:11 | #4 | |
Старожил
Регистрация: 03.01.2014
Сообщений: 2,870
|
Цитата:
Например, как-то так: Код:
|
|
08.03.2014, 17:35 | #5 |
Заблокирован
Регистрация: 02.03.2014
Сообщений: 439
|
Код:
|
08.03.2014, 18:48 | #6 | |
Новичок
Джуниор
Регистрация: 08.03.2014
Сообщений: 4
|
Цитата:
И еще... Почему-то при запуске программы с этим кодом, количество символов умножается на 2, объясните, почему? Последний раз редактировалось gor_ais; 08.03.2014 в 18:59. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одинаковое количество символов в строке | viks1 | Общие вопросы Delphi | 21 | 31.03.2013 22:49 |
Количество символов в строке экрана | Решетова Алена | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 18.02.2013 13:38 |
Количество различных символов в строке | Pasha_Sh | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 25.10.2012 21:15 |
Количество символов в строке! | kalosha-stepa | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 24.09.2012 08:09 |
Количество символов в строке | Ivan357 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 09.12.2008 17:06 |