Как вывести записи с нужными параметрами? Опции

[Анастасия]

Задача:
Фамилия Имя Факультативы
Мат. Физ. Инф.
Павлов Серг true false true
Мисюченко Ира true true false
Сидорон Зоя false false true
Кладов Роман true false false
Создайте массив следующего содержания и структуры, выведите фамилии и имена школьников, которые не посещают факультатив по физике или по математике.

Var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1] := 'Фамилия ';
 StringGrid1.Cells[2,1] := 'Имя';
 StringGrid1.Cells[3,1] := 'математика';
 StringGrid1.Cells[4,1] := 'физика';
 StringGrid1.Cells[5,1] := 'информатика';

  StringGrid1.Cells[1,2] := 'Иванов';
 StringGrid1.Cells[2,2] := 'Коля';
 StringGrid1.Cells[3,2] := 'да';
 StringGrid1.Cells[4,2] := 'да';
 StringGrid1.Cells[5,2] := 'нет';

  StringGrid1.Cells[1,3] := 'Петров';
 StringGrid1.Cells[2,3] := 'Вася';
 StringGrid1.Cells[3,3] := 'да';
 StringGrid1.Cells[4,3] := 'да';
 StringGrid1.Cells[5,3] := 'да';
 end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for j:=2 to 3 do    begin
for i:=1 to 4 do
if (StringGrid1.Cells[3,j]= 'нет') or (StringGrid1.Cells[4,j]= 'нет')  then
StringGrid1.Cells[1,j]:= StringGrid1.Cells[1,j];
StringGrid1.Cells[2,j]:= StringGrid1.Cells[2,j];
end;end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
for j:=2 to 3 do    begin
for i:=1 to 4 do
StringGrid1.Cells[1,j]:='';
StringGrid1.Cells[2,j]:= '';
StringGrid1.Cells[3,j] := '';
StringGrid1.Cells[4,j] := '';
StringGrid1.Cells[5,j] := '';end;
end;
end.

Не знаю, как правильно задать Button2, чтобы вывелись только нужные записи.

[мисс_граффити]

а зачем такие сложности?
дополнительный массив...

k:=1;
for i:=1 to 4 do
  if not(x[i].math) or not(x[i].phys)  then
    begin
    stringgrid1.cells[0,k]:=x[i].name;
    inc(k);
    end;

если этот вариант не нравится...
кракозябры появляются вот почему: реально заполнены у тебя только y[1..3], а в y[4] хранится какой-то мусор. надо изначально опустошать все строки:

y[i].name1:=''

Сообщение отредактировано: мисс_граффити - 2.12.2006 23:04