a:=AnsiResemblesText(self.Edit1.Text,self.Edit2.Text);//提示错误:Error] Unit1.pas(32): Undeclared identifier: 'AnsiResemblesText

Question

procedure TForm1.Button1Click(Sender: TObject);
var
a:boolean;
begin
a:=AnsiResemblesText(self.Edit1.Text,self.Edit2.Text);if a = true then showmessage('ok')
else
if a = flase then showmessage('no');
end;end.
//提示错误:
Error] Unit1.pas(32): Undeclared identifier: 'AnsiResemblesText'
[Error] Unit1.pas(36): Undeclared identifier: 'flase'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
是怎么会事

Answer 1

uses StrUtils 在者你的flase是啥东西啊，写错了吧！