Topic: Ошибка компиляции
procedure priem_vvod_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
if priem_vvod.Edit1.Text = '' then
begin priem_vvod.Edit1.Color:=clRed;
end else begin priem_vvod.Edit1.Color:=clWhite; end;
if priem_vvod.edit2.Text = '' then
begin priem_vvod.Edit2.Color:=clRed;
end else begin priem_vvod.Edit2.Color:=clWhite; end;
if priem_vvod.edit3.Text = '' then
begin priem_vvod.Edit3.Color:=clRed;
end else begin priem_vvod.Edit3.Color:=clWhite; end;
if priem_vvod.edit7.Text = '' then
begin priem_vvod.Edit7.Color:=clRed;
end else begin priem_vvod.Edit7.Color:=clWhite; end;
if priem_vvod.edit8.Text = '' then
begin priem_vvod.Edit8.Color:=clRed;
end else begin priem_vvod.Edit8.Color:=clWhite; end;
if priem_vvod.edit18.Text = '' then
begin priem_vvod.Edit18.Color:=clRed;
end else begin priem_vvod.Edit18.Color:=clWhite; end;
if priem_vvod.edit19.Text = '' then
begin priem_vvod.Edit19.Color:=clRed;
end else begin priem_vvod.Edit19.Color:=clWhite; end;
if priem_vvod.edit20.Text = '' then
begin priem_vvod.Edit20.Color:=clRed;
end else begin priem_vvod.Edit20.Color:=clWhite; end;
if priem_vvod.edit21.Text = '' then
begin priem_vvod.Edit21.Color:=clRed;
end else begin priem_vvod.Edit21.Color:=clWhite; end;
if priem_vvod.edit24.Text = '' then
begin priem_vvod.Edit24.Color:=clRed;
end else begin priem_vvod.Edit24.Color:=clWhite; end;
if priem_vvod.edit25.Text = '' then
begin priem_vvod.Edit25.Color:=clRed;
end else begin priem_vvod.Edit25.Color:=clWhite; end;
if priem_vvod.edit26.Text = '' then
begin priem_vvod.Edit26.Color:=clRed;
end else begin priem_vvod.Edit26.Color:=clWhite; end;
if priem_vvod.edit27.Text = '' then
begin priem_vvod.Edit27.Color:=clRed;
end else begin priem_vvod.Edit27.Color:=clWhite; end;
if priem_vvod.edit29.Text = '' then
begin priem_vvod.Edit29.Color:=clRed;
end else begin priem_vvod.Edit29.Color:=clWhite; end;
if priem_vvod.Memo1.Text = '' then
begin priem_vvod.Memo1.Color:=clRed;
end else begin priem_vvod.Memo1.Color:=clWhite; end;
if priem_vvod.ComboBox1.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Пол');
end;
if priem_vvod.ComboBox2.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Док-т, удостоверяющий личность');
end;
if priem_vvod.ComboBox7.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Факультет');
end;
if priem_vvod.ComboBox8.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Форма обучения');
end;
if priem_vvod.ComboBox11.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Страна регистрации');
end;
if priem_vvod.ComboBox12.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Тип н_п регистрации');
end;
if priem_vvod.ComboBox13.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Тип улицы регистрации');
end;
if priem_vvod.ComboBox14.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Страна факт_проживания');
end;
if priem_vvod.ComboBox15.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Тип н_п факт проживания');
end;
if priem_vvod.ComboBox16.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Тип улицы факт_проживания');
end;
if priem_vvod.ComboBox17.dbItemID = -1 then
begin ShowMessage('Не заполнено поле Иностранный язык, который изучался');
end;
if priem_vvod.CheckBox4.Checked = False then
begin ShowMessage('Не заполнено поле Оригиналы документов');
end;
ShowMessage('Не заполнены обязательные поля (помечены красным)!');
Cancel:=True;
end
else begin
priem_vvod.Button1.dbGeneralTableId:=-1;
MessageBox('Карточка записана в базу данных','Информация',MB_OK+MB_ICONINFORMATION);
priem_corr.Show;
end;
end;
вот тут - перед
else begin
priem_vvod.Button1.dbGeneralTableId:=-1;
ошибка ; expected Бьюсь полдня - ничего не могу поделать
По смыслу - проверка на заполненность данных перед сохранением.
Yana