Цитата:
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.ProcessMessages();
yar; data; zag; vis:=true;
// 1991
ZE:='';{зерновая емкость} VS:='';{Валовый сбор}
PP:='';{посевная пощадь} UR:=''; {урожайность}
//2009
ZE1:='';{зерновая емкость} VS1:='';{Валовый сбор}
PP1:='';{посевная пощадь} UR1:=''; {урожайность}
//2020
ZE2:='';{зерновая емкость} VS2:='';{Валовый сбор}
PP2:='';{посевная пощадь} UR2:=''; {урожайность}
oblst:='Белгородская область';{область/грай }
oblast;
end;
|
Вот так правильно. Ты сначала вызывал процедуру область, а потом присваивал области значение.