preciso converter 2 coisas.. alguem me ajuda?

29/10/2006

2

o codigo esta em object pascal:

if Key in [´a´..´z´] then Key:= UpCase(Key);


procedure CriaForm(FormClass: TFormClass);
begin
 with FormClass.Create(Application) do
  try
   ShowModal;
  finally
   Free;
  end;
end;



Responder

Posts

31/10/2006

Rodc

O primeiro eu sei, o segundo eu passo...
if (Key >= ´a´ && Key <= ´z´)
    Key = UpCase(Key);



Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar