16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Edit1Change(Sender: TObject);
const
sCheck = 'Hello'; //要判断的字符串
var
AEdit: TEdit;
iPos : Integer;
begin
AEdit := TEdit(Sender);
iPos := Pos(sCheck, AEdit.Text);
if iPos > 0 then
begin
ShowMessage ('You type "' + sCheck + '"');
AEdit.Text := AnsiReplaceStr(AEdit.Text, sCheck, '');
AEdit.SelStart := iPos - 1;
end;
end;