Código: Seleccionar todo
procedure cortar(xStr : String; dl , dl2: string; donde : TStrings);
var
a, b : Integer;
begin
donde.Clear;
while a <> 0 do
begin
a := ansipos(dl, xStr);
b := ansipos(dl2, xStr);
donde.add (Copy(xStr, a + Length(dl), b - a - Length(dl)));
xStr := Copy(xStr, b + Length(dl2), Length(xStr));
end;
end;Ejemplo:
Hay que crear una var de TStrings o algun objeto que lo tenga como ListBox.
Código: Seleccionar todo
Cortar ('Hola!^^Soy STX!**UdTools.Net!^^Mensaje para todos!**', '^^', '**', ListBox.Items);Soy STX!
Mensaje para todos!
Me hice un gran lio con las arrays de strings y lo deje en TStrings que es mas rapido.
