[lucasarts_18]

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..