im StringGrid Text filtern ?

[aldi]

Hallo,

wie kann ich einen String bearbeiten, dass nur noch ein bestimmter Teil des Textes angezeigt wird.
Hier als Anhang ein Beispiel !

Mein Ziel ist es, nur den Text zwischen "<message> <message>" anzuzeigen!

filter_neu.png (7.36 KiB) 500 mal betrachtet

Zurzeit wird der Text wie folgt abgeholt:

Code: Alles auswählen

 
procedure TForm1.EmpfangGridReceive(aSocket: TLSocket);
  var
  Port : integer;
  Verbindungsaufbau : boolean;
  i : integer;
  Eingangstext : String;
begin
  aSocket.GetMessage(Eingangstext);
  EmpfangGrid.Disconnect(False);     // Verbindung wird unterbrochen
  StringGrid2.RowCount := StringGrid2.RowCount + 1;
  for i := StringGrid2.RowCount - 1 downto StringGrid2.FixedRows + 1 do
    StringGrid2.Rows [i].Assign (StringGrid2.Rows [i - 1]);
  StringGrid2.Rows [StringGrid2.FixedRows].Clear;
  StringGrid2.Cells [1, StringGrid2.FixedRows] := FormatDateTime ('dd:mm:yyyy', Now);
  StringGrid2.Cells [2, StringGrid2.FixedRows] := FormatDateTime ('hh:nn:ss', Now);
  StringGrid2.Cells [3, StringGrid2.FixedRows] := Eingangstext ;  

[theo]

Die Quelle sieht nach XML aus.
http://wiki.lazarus.freepascal.org/XML_Tutorial/de