Mostrar texto de un DBMemo a partir de un caracter

[ecfisa]

Hola exequielmatias1.

Para que te muestre todos aquellos caracteres del texto que estén comprendidos entre dos delimitadores:

Código Delphi [-]
...
uses StrUtils;

const
   DELIM = '#';


procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
var
  p1, p2: Integer;
  s1, aux : string;
begin
  s1  := DBMemo1.Text;
  repeat
    p1 := Pos(DELIM, s1);
    p2 := PosEx(DELIM, s1, p1 + 1);
    if (p1 <> 0) then
    begin
      aux := aux + Copy(s1, p1+1, p2 - p1 -1) + ' ';
      Delete(s1, 1, p2);
    end;
  until (p1 = 0) or (p1 > p2);
  if Length(s1) <> Length(DBMemo1.Text) then
    DBMemo1.Text := aux;
end;

Saludos