Вобще я попробовал вот так:
----------------------------------------------------
Цитата:
procedure TForm1.Button1Click(sender:TOject);
begin
ShowMesage(IntToStr(Length(Edit1.Text)));
end;
end.
|
но у меня ничего не получилось. Потом я зделел так:
Цитата:
procedure TForm1.Button1Click(sender:TOject);
begin
MesageBox(0,IntToStr(Length(Edit1.Text),'0'));
end;
end.
|
Помогите в чем дело.