01、Delphi正则表达式
01、先写个正则表达式小工具,再用这个工具测试和学习。
02.代码如下:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.Mask, System.Types, System.RegularExpressions; type TForm1 = class(TForm) GroupBox1: TGroupBox; Button1: TButton; Memo1: TMemo; Splitter1: TSplitter; ListView1: TListView; LabeledEdit1: TLabeledEdit; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } m_StrList: TStringList; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses TxCommon; procedure TForm1.Button1Click(Sender: TObject); var m_Source: string; m_Pattern: string; m_Match: TMatch; I: Integer; begin I := 0; m_Source := Memo1.Text; m_Pattern := LabeledEdit1.Text; ListView1.Items.Clear; for m_Match in TRegEx.Matches(m_Source, m_Pattern) do begin // 增加记录 with ListView1.Items.Add do begin I := I + 1; Caption := I.ToString; Subitems.Add(m_Match.Value); end; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin m_StrList.Free; end; procedure TForm1.FormShow(Sender: TObject); begin m_StrList := TStringList.Create; end; end.