preciso converter 2 coisas.. alguem me ajuda?

29/10/2006

1

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira