PDA

Просмотр полной версии : Помогите найти ошибку в модуле!?



alligator
09.10.2004, 00:30
Здравствуйте, уважаемые программеры!
Помогите найти ошибку в модуле!?

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[i].Fam=familia then
begin
j:=j+1;
Form1.StringGrid1.Cells[0,j]:=te.pv[i].Fam;
Form1.StringGrid1.Cells[1,j]:=te.pv[i].Kniga;
Form1.StringGrid1.Cells[2,j]:=te.pv[i].Shifr;
Form1.StringGrid1.Cells[3,j]:=inttostr(te.pv[i].God);
Form1.StringGrid1.Cells[4,j]:=inttostr(te.pv[i].Kolvo);


if j=Form1.StringGrid1.RowCount then
begin
Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowC ount+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[i].God);
Form1.StringGrid1.Cells[4,j]:=inttostr(te.pv[i].Kolvo);
При попытке компиляции выскакивает Error - Undeclared identifier: 'inttostr'
Странно, ведь 'inttostr' - это известная функция, не нуждающаяся в объявлении.
Причём в основном модуле Unit1 этого проекта (если поставить код функции Poisk в Unit1) всё работает олично.
Кстати - объект te я инициализовал в Unit1 (te:=tbook.Create(a);) , и массив записей Telement - PV там же (SetLength(te.pv,0);-начальная инициализация - потом я изменял его размер. Если вы найдёте ошибку, то ,пожалуйста, объясните в чём тут дело. :-(

Naeel Maqsudov
10.10.2004, 01:23
Нажмите, плз, над своим сообщением кнопку "Правка" и перевставьте текст модуля, заключая его в тег [ CODE ], а то читать не возможно!