Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1068
от 18.02.2008, 19:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 435, Экспертов: 61
В номере:Вопросов: 3, Ответов: 5

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 122937: Здравствуйте, уважаемые эксперты! Мне нужно подсчитать частоту появления букв в заданном тексте. например сколько раз "м" встречается в выражении "мама мыла раму". И данные представить в виде таблицы, где первая строка это символы...
Вопрос № 122944: Преведствую Вас уважаемые эксперты. Помоги, оч. срочна нада. У меня есть девушка, у неё есть проблема на сессии и выглядит она премерно таг: Мне нужно подсчитать частоту появления букв в заданном тексте. например сколько раз "м" вс...
Вопрос № 122966: Здравствуйте. Возникла необходимость работать с компонентом StringGrid, но не получаеться реализовать следующее: 1) Как определить номер текущей выделеную строку в таблице StringGrid, ее индекс, например при клике на ней мышкой ? 2) К...

Вопрос № 122.937
Здравствуйте, уважаемые эксперты! Мне нужно подсчитать частоту появления букв в заданном тексте. например сколько раз "м" встречается в выражении "мама мыла раму". И данные представить в виде таблицы, где первая строка это символы текста, а во второй их количество в тексте.Я нашла подобный вопрос от 30.05.2007 N 89469.
for c:=#0 to #255 do
if c in symb then
begin
StringGrid1.ColCount:=k+1;
StringGrid1.Cells[k,0]:=c;
StringGrid1.Cells[k,1]:=inttostr(a[c,1]);
StringGrid1.Cells[k,2]:=inttostr(a[c,2]);
inc(k);
end;
Тут присутствует множество symb
symb=['А'..'я','.',',','+','=','_',')','(','*','?',':','%',';','"','!','N',''''];
У меня не получается его правильно задать. символы я свои подставлю(мне нужны только цифры и русские буквы).Как мне его задать чтобы ошибка не выходила? Или может быть кто-нибудь знает другой вариант решения.

Отправлен: 13.02.2008, 10:53
Вопрос задала: Cholito (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Cholito!
В приложении основная часть кода.
На форме StringGrid; два поля TEdit - первое для ввода строки, второе - для ввода символов, количество которых надо посчитать; кнопка.
В приложенном файле проект целиком.

Удачи!

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 13.02.2008, 11:17
Оценка за ответ: 5


Вопрос № 122.944
Преведствую Вас уважаемые эксперты. Помоги, оч. срочна нада. У меня есть девушка, у неё есть проблема на сессии и выглядит она премерно таг:

Мне нужно подсчитать частоту появления букв в заданном тексте. например сколько раз "м" встречается в выражении "мама мыла раму". И данные представить в виде таблицы, где первая строка это символы текста, а во второй их количество в тексте.

Помогите пожалуйста, очень нужно для неё.........

С уважением sefiros......
Отправлен: 13.02.2008, 11:38
Вопрос задал: Sefiros (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Sefiros!
Кажется, Вы немного опоздали... я уже ответил Вашей девушке: 122937 - абсолютно такой же вопрос.
Отвечу и Вам тоже :)


Удачи!

Приложение:

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 13.02.2008, 11:44
Оценка за ответ: 5
Комментарий оценки:
Спасиб Николай, Вы мне тот раз помогли, я и не сомневаюсь, что написанное Вами будет отлично. Огромное спасибо Вам


Вопрос № 122.966
Здравствуйте.
Возникла необходимость работать с компонентом StringGrid,
но не получаеться реализовать следующее:
1) Как определить номер текущей выделеную строку в таблице StringGrid, ее индекс, например при клике на ней мышкой ?
2) Как удалить выделенную строку ?
Отправлен: 13.02.2008, 13:29
Вопрос задал: Alexandr__pepelyaev (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear
Здравствуйте, Alexandrpepelyaev!

Вот один из вариантов (в приложении):

Приложение:

Ответ отправил: Drbear (статус: 7-ой класс)
Ответ отправлен: 13.02.2008, 14:22
Оценка за ответ: 5

Отвечает: Лысенков Антон Анатольевич
Здравствуйте, Alexandrpepelyaev!

1) Вам поможет обработчик события OnSelectCell

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Longint; var CanSelect: Boolean);

здесь Row - индекс выделенной строки, Col - индекс выделенной ячейки.
в обработчике этого события так же можно написать Tag:=ARow и уже после этого решать пункт 2) form1.StringGrid1.Rows.Delete(Stringgrid1.Tag);
Ответ отправил: Лысенков Антон Анатольевич (статус: 3-ий класс)
Ответ отправлен: 13.02.2008, 14:27
Оценка за ответ: 5

Отвечает: Marked One
Здравствуйте, Alexandrpepelyaev!
1) Используй обработчик события OnSelectCell.
В приложении пример обработчика на это событие. При выборе ячейки появляется MessageBox с информацией о колонке и строке.
2)В приложении рабочий код.
Удачи!

Приложение:

Ответ отправил: Marked One (статус: 5-ый класс)
Ответ отправлен: 13.02.2008, 15:06
Оценка за ответ: 5


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.70 от 17.01.2008
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное