Pascal lu TEdit entrée

Question

J'essaie de trouver un moyen de lire une entrée TEdit puis de compter combien de fois le mot entré est utilisé dans un paragraphe. Fondamentalement, comment cette application fonctionne est vous ajoutez un morceau de texte à la première zone de texte, puis tapez le mot que vous voulez sélectionner dans la deuxième zone de texte, puis tapez le nouveau mot dans la troisième zone de texte et enfin le texte original sera ajouté à la dernière zone de texte avec les mots remplacés. J'ai besoin de connaître le nombre de mots qui ont été remplacés sous la zone de texte finale. J'apprécierais vraiment un conseil!

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

Vous pouvez obtenir le nombre de mots pour remplacer like this, puis prendre en compte dans l'interface utilisateur devrait être assez simple.