Помогите найти ошибку в модуле!?
unit Unit3;
interface
Type
str=string[20];
Telement=record
Fam:str;
Kniga:str;
Shifr:str;
God:integer;
Kolvo:integer;
end;
Mas=array of Telement;
FT=file of Telement;
Tbook=class
public
PV:Mas;
a,m:integer;
Constructor Create(a:integer);
Destructor Destroy;
Procedure Poisk(familia:str);
Procedure Insert(var k:integer; zapis:Telement);
Procedure Sort(var pp:mas);
end;
var
pp:Mas;f:FT;
te:Tbook;
zapis:Telement;
implementation
uses Dob, Unit1, Poi, Unit2;
constructor Tbook.Create(a:integer);
begin
a:=0;
m:=0 ;
end;
destructor Tbook.Destroy;
begin
te.Free;
setlength(te.PV,0);
end;
procedure Tbook.Poisk(familia:str);
var
i,j,n:integer;
begin
j:=0;
n:=0;
for i:=0 to te.m-1 do
begin
if te.PV.Fam=familia then
begin
j:=j+1;
Form1.StringGrid1.Cells[0,j]:=te.pv.Fam;
Form1.StringGrid1.Cells[1,j]:=te.pv.Kniga;
Form1.StringGrid1.Cells[2,j]:=te.pv.Shifr;
Form1.StringGrid1.Cells[3,j]:=inttostr(te.pv.God);
Form1.StringGrid1.Cells[4,j]:=inttostr(te.pv.Kolvo);
if j=Form1.StringGrid1.RowCount then
begin
Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
n:=n+1;
end;
end;
end;
end;
end.
Procedure Insert(var k:integer; zapis:Telement) и Procedure Sort(var pp:mas); я не стал приводить -они работают отлично В процедуре poisk меня интересуют конкретно 2 строки Form1.StringGrid1.Cells[3,j]:=inttostr(te.pv.God);
Form1.StringGrid1.Cells[4,j]:=inttostr(te.pv.Kolvo);
При попытке компиляции выскакивает Error - Undeclared identifier: 'inttostr'
Странно, ведь 'inttostr' - это известная функция, не нуждающаяся в объявлении.
Причём в основном модуле Unit1 этого проекта (если поставить код функции Poisk в Unit1) всё работает олично.
Кстати - объект te я инициализовал в Unit1 (te:=tbook.Create(a)
, и массив записей Telement - PV там же (SetLength(te.pv,0);-начальная инициализация - потом я изменял его размер. Если вы найдёте ошибку, то ,пожалуйста, объясните в чём тут дело. :-(