Делфи

[susumi]

у меня собственно такая ситуация: при входе запрашивается пароль. Если пароль совпадает с фамилией любого студента из типизированного файла, то разрешить просматривать данные без пароля, но запретить их редактировать.

type Tstudents = record
ID_stud : word;
Family : string[50];
Name : string[50];
end;

var
PasswordDlg: TPasswordDlg;
stu: TStudents;
Students : file of Tstudents;

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
var i,j: integer; f:file of TStudents ;
begin

assignfile(f,'MarkList');
Reset(f);
for i:=1 to Form3.StringGrid1.RowCount-1 do
begin

j:=0;
while(not Eof(f)) do
begin
j:=j+1;
Read(f,stu);
if (PasswordDlg.Password.text=stu.Family) then
begin
Form1.Show;
Form4.stringGrid1.Options:=Form4.stringGrid1.Options-[goEditing]; //здесь начинает ругаться
Form2.stringGrid1.Options:=Form4.stringGrid1.Options-[goEditing];
Form3.stringGrid1.Options:=Form4.stringGrid1.Options-[goEditing];
end;
end;
end;

if (passwordDlg.Password.Text='admin') then Form1.Show
end;[list=][/list]

[worm2]

Проверьте, что Form2, Form3, Form4 созданы (на момент выполнения этой процедуры).

[susumi]

все создано и прекрасно работает без пароля

[worm2]

Как хоть ругаться-то начинает?

[susumi]

goEditing не распознает

[worm2]

А... на этапе компиляции ругается?
Нужно приглядеться внимательно, что это за компонент stringGrid1 на форме Form4, и действительно ли у него тип TStringGrid. Может, имелась в виду другая форма, не Form4?

[susumi]

да нет все верно: в формах 4,2,3 находится по stringGrid и в них надо запретить редактирование

[worm2]

Ну, у меня тогда единственное, что пришло в голову - проверьте, что в pas- или dpr-файле (на который ругается) подключен модуль Grids:

uses ......, Grids, ....;

[susumi]

сори. что пропала.. (проблемы с инетом).. мне аж стыдно, что до такой мелочи не додумалась . Спасибо теперь все работает