| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подможите пож. подсчитать символы [D5, Win95/98]

Chajnik ©   (2005-02-09 18:39:00) 

Добрового Вам Уважаемые мастаки!

Подскажите пож. чайнику как реализовать простую прогу.
Т.е. нужно при вводе в Edit1 строки и при нажатии на
Button1  В Label2  писалось колличество введенных символов.

Заранее Очень Благодарен!!!

Вот исх-к.

procedure TForm1.Button1Click(Sender: TObject);
Var
N: integer;            {последняя цифра}
S: string;               {изменяемое слово "символ"}

Begin
N: =Length [Edit1.Text];                   {определить число символов}
  Lade12.Caption: ='В тексте'          {выделить последнюю цифру}
 If N>20 then N: =N mod 10;
Case N of                                           {в зависимости от последней цифры}
               1: S:=' символ;
       2. 4 :S:= ' символа;
       0.5-20: S: ='символов';
 End;
Lade 12.Caption:=Lade 12.Caption+
Into Tester (Length (Edit 1.Text)) +S ;{ вывести результат}
End;

---

Chajnik   (2005-02-09 19:26:00) [1]

Окей begin...end.

Огромное спасибо. Все работает.
Спасибо  begin...end.!!!!!!!

---

Jeer   (2005-02-09 18:51:00) [2]

Исходник чего ?
Количество символов строки есть ее длина:
Label2.Caption := IntToStr(Length(Edit1.Text));

---

begin...end   (2005-02-09 18:49:00) [3]

> Chajnik ©   (09.02.05 18:39)

procedure TForm1.Button1Click(Sender: TObject);
var
 N: Integer;
 S: string;
begin
 N := Length(Edit1.Text);
 case N mod 10 of
   2..4: S := 'а';
   0, 5..9: S := 'ов'
 end;
 Label1.Caption := Format('В тексте %d символ%s', [N, S])
end.

---

Наверх