Ver Mensaje Individual
  #12  
Antiguo 21-10-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Reputación: 21
lucasarts_18 Va por buen camino
Hola:

Para quitar el guión:

Código Delphi [-]
 function TFrmInterfaz.QuitarGuion(Cadena : ShortString):ShortString;
 var
   caracter : Integer;
 begin
   caracter := pos('-',Cadena);
   delete(Cadena,caracter,1);
   result := Cadena;
 end;

Hasta Luego..
__________________
No todo es como parece ser...
Responder Con Cita