Программа считающая количество символов в строке.

[gor_ais]

Помогите написать программу, которая будет считать количество символов в строке, вводимых с клавиатуры.

[Streletz]

Наработки?

[gor_ais]

Сообщение от Streletz

Наработки?

Делал по учебнику, но там подсчитывается количество слов в строке

Function CountWord(Const s:String):Integer;
var
S1 : string;
K,i : integer;
Begin
S1:=Trim(S);
K:=0;
for i:=1 to length(S1) do
if s1[i]=' ' then K:=K+1;
Result:=K+1;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
S,S1: string;
P,K,i:integer;
begin
S:=Edit1.Text;
Edit2.Text:=IntToStr(CountWord(S));
end;

Как сделать, чтобы программа подсчитывала количество символов?

[Streletz]

Как сделать, чтобы программа подсчитывала количество символов?

Используйте функцию Length.
Например, как-то так:

 var
symcount:integer;
....
begin
...
symcount:=Length(Edit1.Rext);
...

[XE5]

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit2.Text:=IntToStr(Length(Edit1.Text));
 end;

[gor_ais]

Сообщение от XE5

procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit2.Text:=IntToStr(Length(Edit1.Text));
 end;

Спасибо!!! А если не сложно ответить, то как записать данную программу с помощью процедур с параметрами?

И еще... Почему-то при запуске программы с этим кодом, количество символов умножается на 2, объясните, почему?