Label - duvidas

Delphi

28/07/2003

como faço p o delphi contar o numero de caracteres digitados no label,
e enviar um texto destinado por mim, ex: de 1 a 5 carc, exib ´1´ de 6 a 15 carc, exib ´2´e assim por diante..?


Sidnei

Sidnei

Curtidas 0

Respostas

::d::a::m::m::i::t::

::d::a::m::m::i::t::

28/07/2003

var
   d: integer;
begin
   d:=length(string);
   case d of
      1..5:showmessage(´1´);
      6..15:showmessage(´2´);
      16..25:showmessage(´3´);
   end;
end;



GOSTEI 0
POSTAR