Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 62
1

Memo

19.11.2016, 12:06. Просмотров 136. Ответов 3
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста с заданием. Необходимо для первого компонента Memo посчитать сумму кодов ASCII символов в тексте, кроме специальных (пробел, табуляция, переход на новую строку) и вывести результат во второй компонент Memo. Дело в том, что вывести результат я смогу, а вот как именно подсчитать сумму кодов не знаю.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2016, 12:06
Ответы с готовыми решениями:

Как сделать так, чтобы Memo появлялось поверх остальных Memo?
как сделать так чтобы memo появлялось поверх остальных memo

Разбить поровну содержимое Memo между четырьмя другими Memo
Здравствуйте, уважаемые форумчане! Я в delphi новичок совсем, только основы осваиваю, так...

Получение номера взятой строки из memo, содержимое которой вставлено рандомно в memo
Вообщем есть текстовый файл, из которого берутся все строки, вставляются в memo, а из memo уже в...

Показать один из компонентов memo поверх остальных memo
как сделать так чтобы memo появлялось поверх остальных memo === вот представь что у меня куча...

Перенести данные из memo в одной форме в memo в другой
Как перенести данные из memo в одной форме в memo в другой?

3
Puporev
Модератор
55411 / 42542 / 29395
Регистрация: 18.05.2008
Сообщений: 100,631
19.11.2016, 12:20 2
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var i,s:Integer;
begin
s:=0;
for i:=1 to length(Memo1.Text) do
if not(Memo1.Text[i] in [#9,#10,#13,#32])then
s:=s+ord(Memo1.Text[i]);
Memo2.Text:='Сумма кодов= '+inttostr(s)
end;
И не ASCII, a ANSI
0
Nanotentacle
337 / 218 / 95
Регистрация: 20.10.2016
Сообщений: 1,021
19.11.2016, 12:22 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Var I,j,sum: integer;
St:string;
Begin
For I :=0 to Memo.lines.count-1 do
 Begin
 St:=memo.lines[I];
 For j := 1 to length(st) do
 If ord(st[j]) > 33 then
 Sum := sum + ord(st[j]);
End;
Memo2.text := inttostr(sum);
End;
Писал с калькулятора, могут быть ошибки
0
Natali7
0 / 0 / 0
Регистрация: 14.02.2016
Сообщений: 62
19.11.2016, 14:14  [ТС] 4
Спасибо Большое!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2016, 14:14

Как из memo вывести в listbox все слова, которые начинаются на ту же букву, что и последнее слово из memo?
и при этом сохранить порядок слов которые были в memo

Из DBGrid в memo, из memo печать
Помогите, нужен обработчик который будет переносить всю строку из DBGrid в memo, а из memо я мог...

Memo в delphi / как сделать так чтобы при нажатии на кнопку memo появляется, при повторном нажатии исчезает
как сделать так чтобы при нажатии на кнопку текст с memo появляется, при повторном нажатии исчезает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru