Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Вниз

Подможите пож. подсчитать символы   Найти похожие ветки 

← →
Chajnik ©   (2005-02-09 18:39) [0]

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

Подскажите пож. чайнику как реализовать простую прогу.
Т.е. нужно при вводе в 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;

---

← →
begin...end ©   (2005-02-09 18:49) [1]

> 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.

---

← →
Jeer ©   (2005-02-09 18:51) [2]

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

---

← →
Chajnik ©   (2005-02-09 19:26) [3]

Окей begin...end .

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c