function TForm1.Match(str1,str2:string):Boolean;
var
len,i:integer;function Min(len1,len2:integer):integer;
begin
if len1<=len2
then
result:=len1 else
result:=len2
end;begin
len:=Min(length(str1),length(str2));
result:=true;
for i:=1 to len do
begin
if str1[i]<>str2[i]
then
begin
result:=false;
Exit;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StudentTable.Filtered:=false;
StudentTable.Filtered:=true;
frReport1.ShowReport;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm1.StudentTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
var
strtemp:string;
begin
if Edit1.Text<>''then
begin
strtemp:=StudentTableSID.Asstring;
Accept:=Match(Edit1.Text,strtemp);
end;
end;
end;编译时提示无法找到Match函数
var
len,i:integer;function Min(len1,len2:integer):integer;
begin
if len1<=len2
then
result:=len1 else
result:=len2
end;begin
len:=Min(length(str1),length(str2));
result:=true;
for i:=1 to len do
begin
if str1[i]<>str2[i]
then
begin
result:=false;
Exit;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StudentTable.Filtered:=false;
StudentTable.Filtered:=true;
frReport1.ShowReport;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm1.StudentTableFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
var
strtemp:string;
begin
if Edit1.Text<>''then
begin
strtemp:=StudentTableSID.Asstring;
Accept:=Match(Edit1.Text,strtemp);
end;
end;
end;编译时提示无法找到Match函数
function TForm1.Match(str1,str2:string):Boolean;
var
len,i:integer;
然后怎么没下文了
你这样写的话要在TForm1中的public中声明的
public
{ Public declarations }
function Match(str1,str2:string):Boolean;