Проблема с выводом данных в стринггрид(программу прилагаю)

@Кирилл1000 · Регистрация: 05.05.2015

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

Добрый день всем, дана вот такая задача:
Дана таблица, состоящая из N строк. Структура таблицы следующая: ФИО людей, Название города, Год рождения, Адрес. Найти всех людей проживающих в указанном городе, возрастом моложе 30 лет.

Пытался её сделать, не получается то ли вывод, то ли условие.. голова не работает уже. прошу исправить, заранее спасибо!

@Кирилл1000 · 08.07.2015, 18:10 **[ТС]**

Что, никто помочь не может?)

@Кирилл1000 · 08.07.2015, 18:36 **[ТС]**

вот что надумал ещё.. осталось вывести только и условие правильное задать(

@Alexey2014 · 08.07.2015, 18:55

Кирилл1000,

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  s:=edit2.text;
  r:=1;
  for i:= 1 to n do
  begin
    s1:=st[i].data;
    s1:=copy(s1,7,4);//выделяем год из даты
    k:=(2015-strtoint(s1));
    if (k < 30) and (s=st[i].gor)  then
    begin
      stringgrid2.cells[0,r]:=st[i].fio;
      inc(r);
    end;
  end;
end;

@Кирилл1000 · 08.07.2015, 18:59 **[ТС]**

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

end;

Спасибо огромное!!!

@Кирилл1000 1 / 1 / 0 Регистрация: 05.05.2015 Сообщений: 60
	08.07.2015, 18:10 [ТС]	2
	Что, никто помочь не может?) 0

@Кирилл1000 1 / 1 / 0 Регистрация: 05.05.2015 Сообщений: 60
	08.07.2015, 18:59 [ТС]	5
	Сообщение от Alexey2014 end; Спасибо огромное!!! 0

Проблема с выводом данных в стринггрид(программу прилагаю)

Решение