2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




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

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]

 
 
 
 
Сообщение16.03.2009, 12:18 
Аватара пользователя
Проверьте, что Form2, Form3, Form4 созданы (на момент выполнения этой процедуры).

 
 
 
 
Сообщение16.03.2009, 18:46 
все создано и прекрасно работает без пароля

 
 
 
 
Сообщение16.03.2009, 19:19 
Аватара пользователя
Как хоть ругаться-то начинает?

 
 
 
 
Сообщение17.03.2009, 16:46 
goEditing не распознает

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

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

 
 
 
 
Сообщение17.03.2009, 20:16 
Аватара пользователя
Ну, у меня тогда единственное, что пришло в голову - проверьте, что в pas- или dpr-файле (на который ругается) подключен модуль Grids:
Код:
uses ......, Grids, ....;

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

 
 
 [ Сообщений: 9 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group