フリーパスカル読み取りTEdit入力

Question

TEdit入力を読み込み、入力された単語が段落内で何回使用されたかを調べる方法を見つけようとしています。基本的にこのアプリケーションの動作は、1番目のテキストボックスにテキストを追加し、2番目のテキストボックスに選択したい単語を入力し、3番目のテキストボックスに新しい単語を入力すると、元のテキストが表示されます置き換えられた単語で最後のテキストボックスに追加されます。最終的なテキストボックスの下に置き換えられた単語の数を取得する必要があります。いくつかのアドバイスを本当に感謝しますか？

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

次に、ユーザーインターフェイスでアカウントにそれを取ることは非常に簡単である必要があり、like thisを交換する単語の数を取得することができます。