String zerlegen

[Daniel]

Is' doch ein Paradebeispiel für reguläre Ausdrücke.

Delphi-Quellcode:

procedure TForm33.btn_DoNowClick(Sender: TObject);
var reg : TPerlRegEx;
begin
  Memo1.Clear;

  reg:= TPerlRegEx.Create( NIL );
  TRY
     reg.Subject:= edt_SourceString.Text;
     reg.RegEx:= '\#([0-9a-zA-Z_\-])+\#';

     if reg.Match then
     begin
       Memo1.Lines.Add( reg.MatchedExpression );
       while reg.MatchAgain do
       begin
         Memo1.Lines.Add( reg.MatchedExpression );
       end;
     end
     else
       Memo1.Lines.Add( 'nichts gefunden' );

  FINALLY
     reg.Free;
  END;
end;

Dafür muss man auch keine Komponente installieren, nur die Unit in den Suchpfad und gut is'.
(http://www.regular-expressions.info/delphi.html)


[edit]
URL korrigiert.
[/edit]