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函数
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货