Array
(
)

preciso converter 2 coisas.. alguem me ajuda?

Njuniorba
   - 29 out 2006

o codigo esta em object pascal:

#Código

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


#Código

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



Rodc
   - 31 out 2006

O primeiro eu sei, o segundo eu passo...
#Código

if (Key >= ´a´ && Key <= ´z´)
Key = UpCase(Key);