IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Процедура проверки на коректность, введених данных
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Есть процедура:

procedure MainCheck(StringGrid: TStringGrid);
var
i, k, j, z: Integer;
begin
for j:=1 to StringGrid.ColCount-1 do
for z := 1 to StringGrid.RowCount - 1 do begin
if (length(StringGrid.Cells[j,z])=0) then
begin
messageDlg('Vvedeni ne vse danie',mtError,[mbOk],0);
exit;
end;
end;
end;




Помешяем её например
в

procedure TfrmMain.Button1Click(Sender: TObject);
var Count: Integer;
begin
MainCheck(StringGrid1);
...
<Дальше код программы>
...
end;



Как сделать что бы если Выскакивает ошибка о том что Vvedeni ne vse danie, дальше код программы не выполнялся ?


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
сообщение
Сообщение #2


Гость






Сделай функцию, а не процедуру:

function MainCheck(StringGrid: TStringGrid);
var i, k, j, z: Integer;
begin
result := true; // <--- True - если будет ошибка
for j:=1 to StringGrid.ColCount-1 do
for z := 1 to StringGrid.RowCount - 1 do begin
if (length(StringGrid.Cells[j,z])=0) then begin
messageDlg('Vvedeni ne vse danie',mtError,[mbOk],0);
exit;
end;
end;
result := false; // Ошибки не было
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var Count: Integer;
begin
if MainCheck(StringGrid1) then exit; // Была ошибка - выходим

...
<Дальше код программы>
...
end;

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Пишет ошибку [Error] Main.pas(208): Function needs result type
в строке function MainCheck(StringGrid: TStringGrid);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


а написать function MainCheck(StringGrid: TStringGrid): boolean самому не догадаться?

Сообщение отредактировано: hardcase -


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name