FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Parser para un Memo
Hola nuevamente:
Lo que necesito hacer con el memo es crear una funcion que me parsee el contenido del memo; es decir, que lo recorra linea a linea y me ponga dentro de un StringList todas las palabras y simbolos que este tiene(estas palabras y simbolos tienen que estar con al menos un espacio antes y despues de la primera y ultima letra). Utilice esta variante pero no me hace el efecto deseado. Si alguien tiene alguna otra variante mas efectiva, agradezco la ayuda. GRACIAS!!! Código:
type TSeparator = set of char; ............... function GetTokens(s:string; separators: TSeparator): TStringList; var slist: TStringList; test, token: string; begin slist := TStringList.create; test := s; result := slist; while (Length(Test)>0) do begin while (Length(Test)>0) and (test[1] in separators) do Delete(test,1,1); if (Length(Test)=0) then exit; token := ''; while (Length(Test)>0) and (not (test[1] in separators)) do begin token := token + test[1]; Delete(test,1,1); end; slist.add(token); end; end; Última edición por bustio fecha: 26-10-2004 a las 05:49:55. |
#2
|
||||
|
||||
Cita:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Respondiendo ,,,,
HOla:
primero y ante todo, debo darte las gracias por tomarte el trabajo de revisarme el codigo. En realidad lo que sucede es que a veces no me toma la ultima palabra de la linea string que le paso. Pero debe ser algun mal uso dentro del ciclo que lo emplea. MUCHAS GRACIAS!!! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|