otra opcion...
hola amigo, tambien da el mismo resultado que el anterior...
//Ej:
//funcion llamadora...
form1.Label1.Caption:=EliminaUltimo('12345');
//funcion llamada...
function EliminaUltimo(Cadena: String): String;
var
largo:integer;
begin
largo:=length(cadena);
cadena:=copy(cadena,1, largo - 1);
Result := Cadena;
end;
//RE: '1234'
|