Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Buscar TAB en un string (https://www.clubdelphi.com/foros/showthread.php?t=22767)

unreal4u 27-06-2005 01:03:44

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!!

dec 27-06-2005 01:24:25

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;

unreal4u 27-06-2005 01:37:38

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...

unreal4u 01-07-2005 21:41:22

funcionó, efectivamente el CHR del TAB no era #11, era #9

Cañones 13-07-2012 23:13:27

Grecias dec!.
Saludos.


La franja horaria es GMT +2. Ahora son las 20:21:36.

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