Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-08-2004
Avatar de nefy
nefy nefy is offline
No confirmado
 
Registrado: nov 2003
Posts: 171
Poder: 0
nefy Va por buen camino
Depende de que usaras. Un ejemplo con un Edit (lo mas comun):

l:=Edit1.GetTextLen;
a:=Edit1.Text;
a[l]:=' ';
Edit1.Text:=a;

Salu2
Responder Con Cita
  #2  
Antiguo 23-08-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por nefy
l:=Edit1.GetTextLen;
a:=Edit1.Text;
a[l]:=' ';
Edit1.Text:=a;
Pero esto no elimina el último caracter, sólo lo sustituye por un espacio.

// Saludos
Responder Con Cita
  #3  
Antiguo 23-08-2004
Avatar de nefy
nefy nefy is offline
No confirmado
 
Registrado: nov 2003
Posts: 171
Poder: 0
nefy Va por buen camino
Haber q tal esta Roman

a:='';
for l:=1 to (Edit1.GetTextLen-1) do
begin
a:=a+Edit1.Text[l];
end;
Edit1.Text:=a;
Responder Con Cita
  #4  
Antiguo 23-08-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por nefy
Haber q tal esta Roman
¡Hombre! sí claro, pero es una forma rebuscada de hacer

Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) - 1);



// Saludos
Responder Con Cita
  #5  
Antiguo 23-08-2004
Avatar de nefy
nefy nefy is offline
No confirmado
 
Registrado: nov 2003
Posts: 171
Poder: 0
nefy Va por buen camino
Vaya que se darle sabor a mi vida. Jamas pense en el Copy.

Salu2.
Responder Con Cita
  #6  
Antiguo 23-08-2004
Gydba Gydba is offline
Miembro
 
Registrado: ene 2004
Ubicación: Argentina
Posts: 673
Poder: 21
Gydba Va por buen camino
Hola,

Realmente hay muchas formas de hacerlo. Otra, aunque no es la que elegiría, es utilizar las funciones de la unit StrUtils:
Código Delphi [-]
ShowMessage(LeftStr('esto es lo que quiero hacer', Length('esto es lo que quiero hacer') - 1));
Bye...
__________________
Suerte
.: Gydba :.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:18:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi