D
dreameast-1
Unregistered / Unconfirmed
GUEST, unregistred user!
这是什么错误阿? [Error] Unit1.pas(481): Illegal character in input file: ' ' ($A1A1)(10分)<br />481行以后的代码是: while table_car2.Locate('职工号',str,[locaseinsensitive]) do
begin
pos:=table_car2.fieldbyname('序号').AsInteger;
count:=table_car2.RecordCount -1;
table_car2.Delete;
for i:=pos to count do
begin
table_car2.Edit;
table_car2.FieldByName('序号').asstring:=inttostr(i);
table_car2.Next;
end;
table_car2.refresh;
table_car.Refresh;
end;
// 下面删除社会关系表
while table_relation2.Locate ('职工号',str,[locaseinsensitive]) do
begin
pos:=table_relation2.fieldbyname('序号').AsInteger ;
count:=table_relation2.RecordCount -1;
table_relation2.Delete;
for i:=pos to count do
begin
table_relation2.Edit;
table_relation2.FieldByName('序号').asstring:=inttostr(i);
table_relation2.Next;
end;
table_relation2.refresh;
table_relation.Refresh;
end;
end;
begin
pos:=table_car2.fieldbyname('序号').AsInteger;
count:=table_car2.RecordCount -1;
table_car2.Delete;
for i:=pos to count do
begin
table_car2.Edit;
table_car2.FieldByName('序号').asstring:=inttostr(i);
table_car2.Next;
end;
table_car2.refresh;
table_car.Refresh;
end;
// 下面删除社会关系表
while table_relation2.Locate ('职工号',str,[locaseinsensitive]) do
begin
pos:=table_relation2.fieldbyname('序号').AsInteger ;
count:=table_relation2.RecordCount -1;
table_relation2.Delete;
for i:=pos to count do
begin
table_relation2.Edit;
table_relation2.FieldByName('序号').asstring:=inttostr(i);
table_relation2.Next;
end;
table_relation2.refresh;
table_relation.Refresh;
end;
end;