preciso converter 2 coisas.. alguem me ajuda?
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;
Njuniorba
Curtidas 0
Respostas
Rodc
29/10/2006
O primeiro eu sei, o segundo eu passo...
if (Key >= ´a´ && Key <= ´z´) Key = UpCase(Key);
GOSTEI 0