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

← →
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));

Окей begin...end .

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

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