como se elimina un carecter de un string...

[JoseBozzano]

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'