Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2011, 20:25   #1
NastyaPoison
Новичок
Джуниор
 
Регистрация: 13.10.2011
Сообщений: 1
По умолчанию Проверка первичного ключа в Delphi

procedure TForm1.Button1Click(Sender: TObject); //Добавить
begin
reset(baz,sizeof(students));
reset(baz1);
BlockRead(baz,stud1,filesize(baz));
found := False;
k:=1;
repeat
if strtoint(edit1.Text)= stud1[k].zach
then found := True
else inc(k);
until (k=filesize(baz)+2) or (found);
if found = True then
begin
showmessage('Такой номер зачетной книжки уже существует')
end
else

with stud do
begin
zach:= strtoint(edit1.Text);
name:= edit2.Text;
pol:= combobox1.Text;
date:= maskedit1.Text;
group:= strtoint (edit3.Text);
stipendia:= combobox2.Text;
end;
seek(baz1,filesize(baz1));
Write(baz1,stud);
closefile(baz);
closefile(baz1);
Пишет, что номер зачётки есть, но всё равно вносит эту запись.
NastyaPoison вне форума Ответить с цитированием
Старый 20.10.2011, 21:37   #2
Step_UA
Форумчанин
 
Аватар для Step_UA
 
Регистрация: 09.06.2011
Сообщений: 388
По умолчанию

у вас код
Код:
seek(baz1,filesize(baz1)); 
 Write(baz1,stud);
который записывает данные находится после if определяющего различные дествия при нахождении искомой записи и нет. Следовательно и выполняется (записывает) всегда.
на неконкретные вопросы даю неконкретные ответы ...
Step_UA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возврат первичного ключа tokloo PHP 11 12.08.2011 22:12
Delphi считывание значения первичного ключа world12_tk Помощь студентам 10 22.03.2011 09:23
Access + ADO, проверка ключа на уникальность KiLLiR БД в Delphi 2 23.02.2009 10:36
вывод первичного ключа ZBoris SQL, базы данных 3 09.02.2009 17:38
Проверка ключа в реестре Marsik Помощь студентам 5 24.04.2008 18:46