bustio
26-10-2004, 05:28:45
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!!!
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;
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!!!
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;