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 27-06-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
Buscar TAB en un string

Hola a todos ...

La verdad es que demás este problema debe estar escrito por allí en los foros, pero al buscar por TAB me dice que la longitud mínima debe ser de 4 caracteres ... por substring son páginas y páginas y páginas de foros.

Tengo Delphi 6, y tengo un string donde debo ubicar el caracter TAB. . .he probado de todo, por poner algunos ejemplos que no me funcionaron: (Creo que el CHR del TAB es 11, pero probé con la letra m)

IContadorTAB := AnsiPos('m',sUnaLinea); --> funciona. Jeje ... pero TAB no es exactamente un caracter. Me lo toma como un montón de espacios.
IContadorTAB := AnsiPos(CHR(77),sUnaLinea); --> No funciona, devuelve 0.
IContadorTAB := AnsiPos(#77,SUnaLinea); --> Idem.
IContadorTAB := AnsiPos(CHR(Key_m),sUnaLinea); --> También devuelve 0

He ocupado esta función, y también la función Pos, ambos sin éxito.

La verdad es que no encuentro otra función que me haga una pega similar ... si no es de su molestia, si acaso podrían ayudarme con esta por fa ... Xauz!!
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita
  #2  
Antiguo 27-06-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Prueba con #9. Por ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   // Indica la posición de la primera tabulación
   ShowMessage(IntToStr(Pos(#9, Memo1.Text)));
 
   // Sustituye las tabulaciones por un espacio
   Memo1.Text := AnsiReplaceStr(Memo1.Text, #9, ' ');
 end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 27-06-2005 a las 01:27:58. Razón: (ampliación del texto)
Responder Con Cita
  #3  
Antiguo 27-06-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
por lo visto funciona, aunque la verdad no veo diferencias ... después voy a ver bien, que ahora tengo que salir. Muchas gracias!! si hay alguna novedad, posteo...
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita
  #4  
Antiguo 01-07-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
funcionó, efectivamente el CHR del TAB no era #11, era #9
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita
  #5  
Antiguo 13-07-2012
Avatar de Cañones
Cañones Cañones is offline
Miembro
 
Registrado: ene 2007
Ubicación: La Paz Entre Ríos
Posts: 354
Poder: 18
Cañones Va por buen camino
Grecias dec!.
Saludos.
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 01:53:01.


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