Free pascal read TEdit Eingabe

Question

Ich versuche einen Weg zu finden, eine TEdit-Eingabe zu lesen und dann zu zählen, wie oft das eingegebene Wort in einem Absatz verwendet wird. Im Grunde funktioniert diese Anwendung wie folgt: Sie fügen dem ersten Textfeld einen Text hinzu, geben dann das gewünschte Wort in das zweite Textfeld ein, geben das neue Wort in das dritte Textfeld ein und schließlich den ursprünglichen Text Zum letzten Textfeld mit den ersetzten Wörtern hinzugefügt. Ich muss zählen, wie viele Wörter unter dem endgültigen Textfeld ersetzt wurden. Würde mich über Ratschläge freuen!

unit Unit1; 
{$mode objfpc}{$H+} 

interface 

uses 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; 

type 

{ TForm1 } 

TForm1 = class(TForm) 
Button1: TButton; 
Edit1: TEdit; 
Edit2: TEdit; 
Edit3: TEdit; 
Edit4: TEdit; 
Label1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 
Label5: TLabel; 
procedure Button1Click(Sender: TObject); 
private 
{ private declarations } 
public 
{ public declarations } 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.lfm} 

{ TForm1 } 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
edit4.Text:=Stringreplace(Edit1.Text, Edit2.Text, Edit3.Text, 
[rfReplaceAll, rfIgnoreCase]); 
edit3.Text:= 
Label5.Caption:=(c); 
end; 
end. 

Answer 1

Sie können die Anzahl der Wörter kennen zu like this zu ersetzen, dann ist es berücksichtigt in der Benutzeroberfläche nehmen sollte ganz einfach sein.