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