Delphi - Вероятность появления элемента Snringgrid

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

| Правила

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Вероятность появления элемента Snringgrid

Настройки темы

Delphi - Вероятность появления элемента Snringgrid

Alibaba.bu

Новый участник

Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Доброго времени суток! Есть программка, она считает количество появлений в тексте всех элементов, нужно организовать в данном коде подсчет вероятности появления этих символом))) Помогите пожалуйста))
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
Ch : Char;
Counts : array[Char] of Integer;
i,j,ColSort: Integer;

begin
s := AnsiUpperCase(Edit1.Text);
ZeroMemory(@Counts, SizeOf(Counts));
for i := 1 to Length(s) do Inc(Counts[s[i]]);
j := 0;
for Ch := Low(Char) to High(Char) do
if (Counts[Ch] > 0)and(Ch<>' ') then
begin
StringGrid2.Cells[0,j+1]:=Ch;
StringGrid2.Cells[1,j+1]:=inttostr(Counts[Ch]);
Inc(j);
StringGrid2.RowCount:=StringGrid2.RowCount+1;
end;
StringGrid2.RowCount:=StringGrid2.RowCount-1;
begin
ColSort:=1;
With StringGrid2 do begin
for i:=FixedRows to RowCount-1 do
for j:=FixedRows to RowCount-1 do
if StrToIntDef(Cells[ColSort,i],0)>StrToIntDef(Cells[ColSort,j],0) then begin
s:=Rows[i].Text;
Rows[i].Text:=Rows[j].Text;
Rows[j].Text:=s;
end;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid2.Cells[0,0]:=('Символ');
StringGrid2.Cells[1,0]:=('Количество');
StringGrid2.Cells[2,0]:=('Вероятность');
end;
end.

Отправлено: 14:41, 22-06-2015

lxa85

Необычный

Сообщения: 4466
Благодарности: 995

Профиль | Сайт | Отправить PM | Цитировать

Alibaba.bu, прикрепите архив проекта и укажите версию Delphi.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Отправлено: 00:52, 26-06-2015 | #2