Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия, Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки
у меня собственно такая ситуация: при входе запрашивается пароль. Если пароль совпадает с фамилией любого студента из типизированного файла, то разрешить просматривать данные без пароля, но запретить их редактировать.
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
16.03.2009, 12:18
Проверьте, что Form2, Form3, Form4 созданы (на момент выполнения этой процедуры).
susumi
16.03.2009, 18:46
все создано и прекрасно работает без пароля
worm2
16.03.2009, 19:19
Как хоть ругаться-то начинает?
susumi
17.03.2009, 16:46
goEditing не распознает
worm2
17.03.2009, 16:59
А... на этапе компиляции ругается?
Нужно приглядеться внимательно, что это за компонент stringGrid1 на форме Form4, и действительно ли у него тип TStringGrid. Может, имелась в виду другая форма, не Form4?
susumi
17.03.2009, 17:07
да нет все верно: в формах 4,2,3 находится по stringGrid и в них надо запретить редактирование
worm2
17.03.2009, 20:16
Ну, у меня тогда единственное, что пришло в голову - проверьте, что в pas- или dpr-файле (на который ругается) подключен модуль Grids:
Код:
uses ......, Grids, ....;
susumi
20.03.2009, 19:33
сори. что пропала.. (проблемы с инетом).. мне аж стыдно, что до такой мелочи не додумалась . Спасибо теперь все работает