Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-07-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Problemas con funciones de manejo de string

Hola a todos

Nuevamente los molesto, como todo principiante, mi problema ahora radica en:

Tengo un unit donde tengo funcines globales para mi proyecto, las q hice solo hacen calculos, por lo tanto no causa problemas, pero tengo una funcion q se encarga de validar el ingreso de un dato (C.I.) y el algoritmo requiere q ocupe las funciones de trabo de String como por ejemplo TRIM, COPY, StrToInt.... etc, pero al correrla me dice q esas funciones no estan definidas.
Bien coloco el Uses para integrar el SysUtil para ver si las reconoce, pero me dice q no se define Uses.
Gracias de antemano para quienes respondan y puedan ayudarme.
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
  #2  
Antiguo 11-07-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
¿Cómo lo has puesto exactamente?
¿Así?
Código Delphi [-]
unit miUnit;

interface

uses
  SysUtils;

// Lo que sea
Responder Con Cita
  #3  
Antiguo 11-07-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Hola amigo

No lo puse asi


unit miUnit;uses SysUtils;interface// Lo que sea
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
  #4  
Antiguo 11-07-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Amigo Sorry

Asi...
unit miUnit;uses SysUtils;interface// Lo que sea
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
  #5  
Antiguo 11-07-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.278
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Utiliza TAGs cuando añadas código delphi.
¿Puedes poner la descripción exacta del error?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 11-07-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Si aqui va....

Este es el error.

ProcGlob.pas(3): 'INTERFACE' expected but 'USES' found

aqui esta el codigo...

Código Delphi [-]
unit ProcGlob;
Uses
 SysUtils;
InterFace
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
FUNCTION v_Rut(Var_Rut: String): Boolean;
implementation
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
BEGIN
  IF f_Num=0 THEN
    Result:=True
  ELSE
    Result:=False;
END;
FUNCTION V_Rut(Var_Rut: STRING): Boolean;
VAR n_Dv,Cal_R,f,i,h,LargoRut: Integer;
  Var_Dv,DvRut,Rut_1,NroRut: String;
BEGIN
 var_rut:=TRIM(var_rut);
 var_rut:=UPPERCASE(var_rut);
  largorut=LENGTH(var_rut);
  Rut_1:=COPY(Var_Rut,1,1);
  IF LargoRut=0 THEN
    Result:=False;
 IF LargoRut<3 OR POS('-',Var_Rut)=0 OR Rut_1='0' THEN
    Result:=False;
 DvRut:=COPY(Var_Rut,LargoRut-1,1);
  NroRut:=COPY(Var_Rut,1,POS('-',Var_rut)-1);
 h:=2;
  Cal_R:=0;
 FOR i:=LENGTH(NroRut) DOWNTO 1 DO
  BEGIN
    f:=StrToInt(COPY(NroRut,i,1));
    IF h=8 THEN
      h:=2;
  Cal_R=Cal_R+(f*h);
  h:=h+1;
  END;
 n_Dv:=11-INT(Cal_R-(INT(Cal_R/11)*11));
  CASE n_Dv OF
    10: Var_Dv='K';
    11: Var_Dv:='0';
    ELSE
      Var_Dv:=IntToStr(n_Dv);
  END;
  IF DvRut<>Var_Dv THEN
    Result:=False;
  Result:=True;
END;
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.

Última edición por marcoszorrilla fecha: 11-07-2006 a las 14:45:39.
Responder Con Cita
  #7  
Antiguo 11-07-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 19
kuan-yiu Va camino a la fama
Código Delphi [-]
unit ProcGlob;
Uses
SysUtils;
InterFace { <--- Esto. }
// Lo que sea
Pues creo que el problema es tan tonto como eso: la cláusula "uses" debe ir dentro de la sección "interface". Pon la declaración "interface" inmediatente después de "unit".
Responder Con Cita
  #8  
Antiguo 11-07-2006
Avatar de destrukthor
destrukthor destrukthor is offline
Miembro
 
Registrado: may 2006
Posts: 57
Poder: 19
destrukthor Va por buen camino
Mil gracias a pesar de ser tonto..

Miles de gracias por ayudarme y solucionarme el problema.
Ya quedo listo y te recuerdo q soy novato en esto y mi programacion viene de clipper donde las declaraciones no son estrictamente escructuradas.

Muchas gracias por la ayuda y seguire molestando con mis problemas mas adelate cuando se me presente.

Recuerden mis problemas no son de programacion sino de conocimientos de las herramienta para usar este lengueje q entre parentecis esta muy bueno y bonito es mas rapido y amigable q Visual FoxPro....
__________________
Solo se q nada Se, Cada dia es un aprendisaje y asi siempre sera.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Funciones String thomasini OOP 3 27-09-2006 14:53:45
Información sobre funciones string JavierO Varios 2 11-10-2005 19:34:02
Problemas con el manejo de la RAM SoulSoldier C++ Builder 1 16-09-2005 00:56:00
Funciones de String Joacko Varios 0 01-12-2004 19:54:49
Problemas con Funciones mauro Internet 2 04-07-2003 13:10:06


La franja horaria es GMT +2. Ahora son las 01:58:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi