免费pascal读取TEdit输入

Question

我试图找到一种方法来读取TEdit输入，然后计算输入字在段落中的使用次数。基本上这个应用程序是如何工作的你是在第一个文本框中添加一段文本，然后在第二个文本框中键入要选择的单词，然后在第三个文本框中键入新单词，最后原始文本将是添加到带有替换单词的最后一个文本框中。我需要计算在最终文本框下面替换了多少单词。非常感谢一些建议！

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，然后在用户界面中将其考虑在内应该非常简单。