Perdon por inundar su mail, pero anteriomente preguntaba como podia ingresar parametros en un programa en pascal, y gracoias por su ayuda, me dijeran las funciones que devia usar (paramstr y paramcount)
Pero ahora tengo un problema debo de usar los parametros en un programa ya hecho este es un ejemplo ,este aberigua la compa�ia que pertenece, Se que debo de usar las funciones pero no se como meterlas al codigo les agradecere su ayuda
PROGRAM TELCONBASE; ? ? ? ?{************************ DEFINICION DE UNIDADES **************************} ? ?USES ? ? Crt, general, boxes ; ? ? ? ?VAR ? ? ? ? usuario : str15; (*Usuario que se usara en el encabezado del pro? ? clave : Str15; (*clave que se utilizara en el encabezado del p? ? Num_Ing : Integer; (* N�mero de input en el que se ingresa *) ? ? Cod : Str8; (* Numero telefonico*) ? ? resp : char; (*Respuesta parapoder iniciar seccion*) ? ? Compa : String[35]; ? ? ? ?procedure Inicializa; ? ?begin ? ? Num_Ing := 1; ? ? Cod := SPACES(' ',08); ? ?end; ? ?procedure Despliegue; ? ?begin ? ? escrixy(31,12,Cod,15,blue); ? ?end; ? ? ? ?procedure Pregunta_Datos; ? ?begin ? ? repeat ? ? CASE Num_ing OF ? ? 1 : LLENA(31,12,'I08',08,Cod); ? ? end; ? ? Despliegue; ? ? Compa := ''; ? ? ? ? if (ENTER) then ? ? begin ? ? CASE Num_ing OF ? ? 1 : BEGIN ? ? SCREEN (1,3); ? ? if TRUNC(VA(Cod,0)) > 0 then ? ? begin ? File Edit Search Run Compile Debug Tools Options Window Help ??[?]?????????????????????????????? PRT.PAS ?????????????????????????????2?[?]?? ? if (cod >= '41000000') and (cod <= '42999999') or ? (cod >= '47000000') and (cod <= '47419999') or ? (cod >= '51100000') and (cod <= '51399999') or ? (cod >= '54200000') and (cod <= '54899999') or ? (cod >= '56200000') and (cod <= '56399999') or ? (cod >= '66200000') and (cod <= '66219999') or ? (cod >= '59200000') and (cod <= '59899999') the ? Begin ? ? Despliegue; ? ? escrixy(31,13, ' Claro ',yellow, red); ? End ? ? else ? ? IF (cod >= '22290000') and (cod <= '22299999') or ? (cod >= '22670000') and (cod <= '22699999') or ? (cod >= '22770000') and (cod <= '22799999') or ? (cod >= '23750000') and (cod <= '23775999') or ? (cod >= '78580000') and (cod <= '78559999') or ? (cod >= '79580000') and (cod <= '79582999') the ? Begin ? ? Despliegue; ? ? Escrixy(31,13,'ATEL COMMUNICATIONS S.A.',yellow); ? End ? ? else ? ? Aviso ('El numero no existe..',15,5); ? ? end; ? ? PushEnter1(15,5{MORADO}); ? ? Screen(0,3); ? ? inicializa; ? ? End; ? ? end; ? ? END; ? ? Until F10; ? ? Screen(0,1); ? ?End; ? ?(************************************************************************) ? ?(* PROCEDIMIENTO P R I N C I P A L *) ? ?(************************************************************************) ? ?Begin ? ? Begin ? ? inicializa; ? ? Pregunta_datos; ? ? end ;