unit regexmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PerlRegEx, SynEdit, SynMemo, SpTBXDkPanels, SpTBXItem,
SpTBXControls, StdCtrls, TntStdCtrls, SpTBXEditors, TB2Item, TB2Dock,
TB2Toolbar, Menus;
type
TForm1 =
class(TForm)
MainMenu1: TMainMenu;
Datei1_OLD: TMenuItem;
Neu1_OLD: TMenuItem;
LadenZieldatei1_OLD: TMenuItem;
LadenderRegexDatei1_OLD: TMenuItem;
N1_OLD: TMenuItem;
SpeichernRegexDatei1_OLD: TMenuItem;
SpeichernRegexDateials1_OLD: TMenuItem;
N2_OLD: TMenuItem;
Beenden1_OLD: TMenuItem;
Bearbeiten1_OLD: TMenuItem;
Rckgngig1_OLD: TMenuItem;
Widerrufen1_OLD: TMenuItem;
N3_OLD: TMenuItem;
Ausschneiden1_OLD: TMenuItem;
Kopieren1_OLD: TMenuItem;
Einfgen1_OLD: TMenuItem;
Lschen1_OLD: TMenuItem;
Allesmarkieren1_OLD: TMenuItem;
Suchen1_OLD: TMenuItem;
Ausdruck1_OLD: TMenuItem;
SpTBXDock1: TSpTBXDock;
SpTBXToolbar1: TSpTBXToolbar;
Datei1: TTBSubmenuItem;
Neu1: TTBItem;
LadenZieldatei1: TTBItem;
LadenderRegexDatei1: TTBItem;
N1: TTBSeparatorItem;
SpeichernRegexDatei1: TTBItem;
SpeichernRegexDateials1: TTBItem;
N2: TTBSeparatorItem;
Beenden1: TTBItem;
Bearbeiten1: TTBSubmenuItem;
Rckgngig1: TTBItem;
Widerrufen1: TTBItem;
N3: TTBSeparatorItem;
Ausschneiden1: TTBItem;
Kopieren1: TTBItem;
Einfgen1: TTBItem;
Lschen1: TTBItem;
Allesmarkieren1: TTBItem;
Suchen1: TTBSubmenuItem;
Ausdruck1: TTBItem;
SpTBXPanel1: TSpTBXPanel;
SpTBXLabel1: TSpTBXLabel;
cbxRegexInput: TSpTBXComboBox;
SpTBXSpeedButton1: TSpTBXSpeedButton;
SpTBXStatusBar1: TSpTBXStatusBar;
SpTBXPanel2: TSpTBXPanel;
SpTBXSplitter1: TSpTBXSplitter;
SpTBXPanel3: TSpTBXPanel;
Regexes: TSynMemo;
Destfile: TSynEdit;
procedure SpTBXSpeedButton1Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private-Deklarationen }
FRegex: TPerlRegEx;
procedure RegexMatch(Sender: TObject);
procedure RegexReplace(Sender: TObject;
var ReplaceWith:
String);
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpTBXSpeedButton1Click(Sender: TObject);
begin
if cbxRegexInput.Text<>'
'
then
begin
if FRegex.FoundMatch
then
begin
end
else
;
end;
end;
procedure TForm1.Beenden1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FRegex := TPerlRegEx.Create;
FRegex.OnMatch := RegexMatch;
FRegex.OnReplace := RegexReplace;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FRegex.Free;
end;
procedure TForm1.RegexMatch(Sender: TObject);
begin
//
end;
procedure TForm1.RegexReplace(Sender: TObject;
var ReplaceWith:
String);
begin
end;
end.