Вывод массив

GeneralMotors

Нужно организовать вывод массива. При первом нажатии на кнопку Button3 выводятся все 1-е элементы массивов, при 2-м нажатии- все вторые элементы и т. д.
procedure TForm3.Button3Click(Sender: TObject);
var
  i:integer;  
begin
 edit1.text:= a[i].fnazv;
 edit2.text:= b[i].fgod;
 edit3.text:= c[i].ffirm;
end;
6 ответов

GeneralMotors

procedure TForm3.Button3Click(Sender: TObject);
{$J+}
const
  i:integer=0;  
begin
 edit1.text:= a[Low(a)+i].fnazv;
 edit2.text:= b[Low(b)+i].fgod;
 edit3.text:= c[Low(c)+i].ffirm;
 inc(i);
end;


GeneralMotors

А как еще сделать чтоб при нажатии на Button4 показывались предидущие значения массивов.


GeneralMotors

А как еще сделать чтоб при нажатии на Button4 показывались предидущие значения массивов.
Увы, не в моих правилах рассказывать несмешной анекдот дважды. Код прост и нагляден - вы сами сможете его модифицировать под новые требования.


GeneralMotors

Увы, не в моих правилах рассказывать несмешной анекдот дважды. Код прост и нагляден - вы сами сможете его модифицировать под новые требования.
Но ведь эта процедура листает элементы только вперд. Я не знаю как сделать чтоб в процедуре Button4Click занести текущую позицию читаемых элементов.


GeneralMotors

Хорошо, я объяснюсь словами: - типизированная константа тут не поможет, следует либо вывести переменную счетчик в раздел var модуля, либо реализовать в виде поля класса формы. - для получения индекса предыдущего значения достаточно вычесть единицу от текущего индекса.


GeneralMotors

Вот я и не знаю как это сделать.