Как сделать так, что-бы в таблице очищалось несколько строк

[jorjanoo]

Вот написал примерно код, дабы заполнять данные в анкету, как сделать так чтобы если данные не подходят под условие, строка даже не добавлялась

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Edit7: TEdit;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
begin
{заголовки таблицы первого листа}
StringGrid1.Cells[0,0]:='ФИО';
StringGrid1.Cells[1,0]:='Год рождения';
StringGrid1.Cells[2,0]:='Пол';
StringGrid1.Cells[3,0]:='Должность';
StringGrid1.Cells[4,0]:='Ученая степень';
StringGrid1.Cells[5,0]:='З/П';
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a,c,d,e,s:string;
b,f:integer;
begin
 s:=Edit7.Text;
 a:=Edit1.Text;
 b:=(StrToInt(Edit2.Text));
 c:=Edit3.Text;
 d:=Edit4.Text;
 e:=Edit5.Text;
 f:=(StrToInt(Edit6.Text));
StringGrid1.Cells[0,1]:= (a);
StringGrid1.Cells[1,1]:= IntToStr(b) ;
StringGrid1.Cells[2,1]:= (c);
StringGrid1.Cells[3,1]:= (d) ;
StringGrid1.Cells[4,1]:= (e) ;
StringGrid1.Cells[5,1]:= IntToStr(f) ;
if (b>1990) and (f<6000) then ShowMessage ('Ошибка ввода данных');
if (StringGrid1.Cells[4,1]='Доцент')
and (StringGrid1.Cells[4,1]='доцент')

then ShowMessage ('Данные заполены неверно!')
 else (StringGrid1.Cells [4,1]:='') ;




end;
end.

[Serge_Bliznykov]

Сообщение от jorjanoo

как сделать так чтобы если данные не подходят под условие, строка даже не добавлялась

поставьте проверку условия до заполнения таблицы.

если речь идёт про условие:

Сообщение от jorjanoo

if (b>1990) and (f<6000) then ShowMessage ('Ошибка ввода данных');

то можно так:

procedure TForm1.Button2Click(Sender: TObject);
var
a,c,d,e,s:string;
b,f:integer;
begin
 s:=Edit7.Text;
 a:=Edit1.Text;
 b:=(StrToInt(Edit2.Text));
 c:=Edit3.Text;
 d:=Edit4.Text;
 e:=Edit5.Text;
 f:=(StrToInt(Edit6.Text));
 if (b>1990) and (f<6000) then begin
         ShowMessage ('Ошибка ввода данных');
         exit; {выход из процедуры}
 end;
 StringGrid1.Cells[0,1]:= (a);
 StringGrid1.Cells[1,1]:= IntToStr(b) ;
 StringGrid1.Cells[2,1]:= (c);
 StringGrid1.Cells[3,1]:= (d) ;
 StringGrid1.Cells[4,1]:= (e) ;
 StringGrid1.Cells[5,1]:= IntToStr(f) ;

p.s.


а это написано неверно.

Сообщение от jorjanoo

if (StringGrid1.Cells[4,1]='Доцент')
and (StringGrid1.Cells[4,1]='доцент')

Ни одна строчка не может быть одновременно равна двум разным значениями.
Вы, наверное, хотели написать "ИЛИ" (вместо AND использовать OR )
А для чего это вообще нужно? Зачем стирать текст "Доцент" ?
А если напишут 'ДОЦЕНТ', то не надо стирать?

[jorjanoo]

Данные заполняются, офк, и выход там как-бы и не нужен, строчки вот остаются заполненными

[jorjanoo]

Я нашел решение

then begin (ShowMessage ('Ошибка ввода данных'));
StringGrid1.Cells [0,1]:='' ;
StringGrid1.Cells [1,1]:='' ;
StringGrid1.Cells [2,1]:='' ;
StringGrid1.Cells [3,1]:='' ;
StringGrid1.Cells [4,1]:='' ;
StringGrid1.Cells [5,1]:='' ;

теперь нужно думать как через цикл заполнять полностью таблицу