find ord i richedit og opret en button knap

Det gør du sådan her:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  btn: TButton;
begin
  for i:= 0 to RichEdit1.Lines.Count-1 do
    if pos('Label',RichEdit1.Lines.Strings[i]) >0 then
    begin
      btn:= TButton.Create(Form1);
      btn.Parent:= Form1;
      btn.Left:= 50;
      btn.Top:= 50;
      btn.Width:= 150;
      btn.Caption:= 'Der står Label i linie: '+IntToStr(i);
    end;
end;

Bemærk ovenstående tager ikke hensyn til små og store bogstaver Label skal altså være med stort L og resten små

Men den her kan du se hvad der blev klikket på. Og den er ikke casesensitive.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreatedButtonClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  btn: Tbutton;
const
  sogord: Pchar = 'label';
begin
  if pos(sogord, lowercase(RichEdit1.Lines.Text)) <> 0 then
  begin
    btn := Tbutton.Create(Form1);
    with btn do
    begin
      Parent := Form1;
      Tag := Longint(Pchar(sogord));
      Top := 50;
      Left := 50;
      Width := 200;
      Height := 25;
      OnClick := CreatedButtonClick;
      Caption := 'Test';
    end;
  end;
end;

procedure TForm1.CreatedButtonClick(Sender: TObject);
var
  but: TButton;
begin
  but := pointer(sender);
  showmessage('Der blev klikket på knappen som søgte efter: ' + Pchar(but.Tag));
end;

end.

TRichEdit har faktisk en Find() function som måske er lidt bedre en Pos()

/Martin

ok hvis du ønsker at bruge trichedits find method skal du rette:
  if pos(sogord, lowercase(RichEdit1.Lines.Text)) <> 0 then
til
  if RichEdit1.FindText(sogord, 0, length(RichEdit1.Lines.Text), []) <> -1 then

Glædelig Jul :)