Проверка данных в стринггриде

@OverDozero · Регистрация: 07.04.2011

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток.
Для проверки данных в стринггрид используется такая процедура:

Delphi

procedure clearcell(SG:TStringGrid;StatusBar:TStatusBar;var error:boolean);//проверка пустых ячеек
var i,j:integer;
s1,s2:string;
begin
  for j:=1 to SG.RowCount-1 do
  for i:=1 to 3 do
  begin
    error:=false;
    s1:=SG.Cells[1,j];
    s2:=SG.Cells[2,j];
     if SG.Cells[i,j]='' then
    begin
      SG.Row:=j;
      SG.Col:=i;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Ячейка под номером : '+'['+IntToStr(i+1)+','+IntToStr(j)+']'+' не содержит данных';
      error:=true;
      exit;
    end;
 
    if (s2=s1) then
    begin
      SG.Row:=j;
      SG.Col:=2;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Строка под номером : '+IntToStr(j)+
      ' - начальное и конечное события совпадают';
      error:=true;
      ShowMessage('Начальное и конечное события совпадают');
      Exit;
    end;
 
    if (s2<s1) then
    begin
      SG.Row:=j;
      SG.Col:=2;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Строка под номером : '+IntToStr(j)+
      ' - конечное событие меньше начального';
      error:=true;
      ShowMessage('Конечное событие меньше начального');
      Exit;
    end;
  end;
end;

Вызов осуществляется так:

Delphi

1	clearcell(SG1,StatusBar1,error);//проверка ячеек

Проблема в том,что необходимо сначала проверять на пустые ячейки,а потом только на совпадение значений.
Например:Запускаю программу и пытаюсь выполнить расчеты.При нажатии на кнопку проверка первой ячейки срабатывает корректно.На нее устанавливается фокус,и в статус бар выдается сообщение что данная ячейка не содержит данных.Следующую ячейку еще не заполнял.Еще раз нажимаю на кнопку и выдается сообщение что конечное событие меньше начального.Хотя вторая ячейка пустая.Ну это понятно,что будет данное сообщение,так как данные в ячейке действительно меньше,чем в предыдущей.
Помогите исправить код так,чтоб проверялись сначала пустые ячейки,а потом только на совпадение данных в 2 ячейках.Если 1 ячейка пустая,то на нее устанавливается фокус.Если вторая пустая,то на нее устанавливается фокус.А не так, чтоб сравнивалось содержимое 2 ячеек.

@Puporev · 25.07.2012, 11:50

Попробуйте так.

Delphi

procedure clearcell(SG:TStringGrid;StatusBar:TStatusBar;var error:boolean);//проверка пустых ячеек
var i,j:integer;
s1,s2:string;
begin
  for j:=1 to SG.RowCount-1 do
   begin
    error:=false;
    i:=1;
    while(i<=3)and not error do
    if SG.Cells[i,j]='' then error:=true
    else inc(i);
    if error then //если есть пусиая ячейка
     begin
      SG.Row:=j;
      SG.Col:=i;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Ячейка под номером : '+'['+IntToStr(i+1)+','+
                                 IntToStr(j)+']'+' не содержит данных';
      exit;
     end;
    //если нет пустых ячеек, продолжаем
    s1:=SG.Cells[1,j];
    s2:=SG.Cells[2,j];
    if (s2=s1) then //если совпадают
     begin
      SG.Row:=j;
      SG.Col:=2;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Строка под номером : '+IntToStr(j)+
      ' - начальное и конечное события совпадают';
      error:=true;
      ShowMessage('Начальное и конечное события совпадают');
      Exit;
    end;
    //если не совпадают, продолжим
    if (s2<s1) then
    begin
      SG.Row:=j;
      SG.Col:=2;
      SG.SetFocus;
      StatusBar.Panels[2].Text:='Строка под номером : '+IntToStr(j)+
      ' - конечное событие меньше начального';
      error:=true;
      ShowMessage('Конечное событие меньше начального');
      Exit;
    end;
  end;
end;

@OverDozero · 25.07.2012, 11:58 **[ТС]**

Спасибо!У меня выходит цикл по столбцам неверно обрабатывался.

@Puporev · 25.07.2012, 12:00

Просто нужно проверять построчно, сначала 1 условие, если нет пустых, то второе и третье.

@OverDozero 322 / 264 / 109 Регистрация: 07.04.2011 Сообщений: 1,526
	25.07.2012, 11:58 [ТС]	3
	Спасибо!У меня выходит цикл по столбцам неверно обрабатывался. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.07.2012, 12:00	4
	Просто нужно проверять построчно, сначала 1 условие, если нет пустых, то второе и третье. 1