Código Delphi [-] function EliminaUltimo(Cadena: String): String; begin delete(cadena,length(cadena),1); Result := Cadena; end;
function EliminaUltimo(Cadena: String): String; begin delete(cadena,length(cadena),1); Result := Cadena; end;