Показать сообщение отдельно
  #7  
Старый 23.11.2010, 09:24
Аватар для tristan
tristan tristan вне форума
Прохожий
 
Регистрация: 28.10.2010
Сообщения: 32
Репутация: 2956
По умолчанию

Вобще я попробовал вот так:
----------------------------------------------------
Цитата:
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.
Помогите в чем дело.
Ответить с цитированием