FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como se elimina un carecter de un string...
Hola amigos del club, la pregunta es como elimino por la derecha el ultimo caracter. ejemplo: Cadena del string : 'esto es lo que quiero hacer' quiero que se elimine la 'r' 'esto es lo que quiero hace'
__________________
ronimaxh Rep. Dominicana |
#2
|
||||
|
||||
Hola creo que esta es tu solución
un saludo
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#3
|
|||
|
|||
Gracias por contestar, me da este error:
[Error] Unit1.pas(99): Too many actual parameters [Error] Unit1.pas(99): Too many actual parameters [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas' nota: asi fue que lo puse codigo: delete(mtabla,length(mtabla),1);
__________________
ronimaxh Rep. Dominicana |
#4
|
|||
|
|||
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' |
#5
|
||||
|
||||
Depende de que usaras. Un ejemplo con un Edit (lo mas comun):
l:=Edit1.GetTextLen; a:=Edit1.Text; a[l]:=' '; Edit1.Text:=a; Salu2 |
#6
|
||||
|
||||
Cita:
// Saludos |
#7
|
|||
|
|||
Hola,
Realmente hay muchas formas de hacerlo. Otra, aunque no es la que elegiría, es utilizar las funciones de la unit StrUtils: Bye...
__________________
Suerte .: Gydba :. |
#8
|
|||
|
|||
gracias esta si me funcionó bien
__________________
ronimaxh Rep. Dominicana |
#9
|
||||
|
||||
Haber q tal esta Roman
a:=''; for l:=1 to (Edit1.GetTextLen-1) do begin a:=a+Edit1.Text[l]; end; Edit1.Text:=a; |
#10
|
||||
|
||||
Cita:
Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1); // Saludos |
#11
|
||||
|
||||
Vaya que se darle sabor a mi vida. Jamas pense en el Copy.
Salu2. |
|
|
|