Две кнопки в одной форме.

[Андрей-ник]

Stilet, цитата хорошая, намёк понял, но всё дело в том, что я не "несчастный читатель", считающий себя "образованным". Про "накачанность" поясню. Говоря о количестве скаченных учебников и пособий, я вовсе не собирался блистать своей начитанностью, я просто хотел сказать, что стараюсь искать решение проблем самостоятельно, по мере своих возможностей. При этом, при чтении многих из этих учебников, складывается ощущение, что их авторы писали их для людей такого же уровня в программировании, как и они сами, поэтому, чтобы найти ответы на те или иные вопросы приходится перелопачивать несколько книг сразу, и не всегда с положительным результатом.

Про "правильно все усвоенное принимать" скажу следующее. Так сложилось, что у меня нет систематического образования по программированию, я не занимался с педагогом-программистом, который бы меня учил , что значит "правильно усваивать и понимать", но программирование мне интересно. Поэтому я решил изучить язык программирования самостоятельно, т.е. я самоучка в этом деле.
Извиняюсь конечно, что мои вопросы вызывают такое раздражение у специалистов, но ничего не могу поделать, таков мой уровень на сегодняшний момент. Попытайтесь вспомнить себя на начальном этапе изучения программирования, может тогда новички не столь сильно будут вас разочаровывать.

За помощь и подсказку спасибо.

Сообщение от min@y™

этот несчастный массив из 10 целых чисел нужно сделать полем формы и всё

Согласен, массив несчастный, но это так, для примера. При желании его можно заменить любым другим счастливым массивом.

А как сделать массив полем формы? На форуме есть тема с таким примером?

[min@y™]

Попытайтесь вспомнить себя на начальном этапе изучения программирования, может тогда новички не столь сильно будут вас разочаровывать.

Ой, вспоминаю! На дворе - лихие 90е, жрать нечего. 286-й комп, системник с кнопкой TURBO, лупоглазый монитор 14" с поляризатором, MS-DOS 6.22, Turbo Pascal 7.0, про интернеты (да и про локальные сети) никто не слышал. 3 компа на 100 человек. 5 и 3,5" дискеты - наши торренты. Одна драная книжка по паскалю, с пометками на полях и кругами от кружек с кофем/пивом.

Во жэсть была! И ничего. Даже игры писал. А на лабах вообще целый бизнес замутил. Так шта, если очень захотеть, можно в космос улететь.

А ты тут плачешься, мля:

Так сложилось, что у меня нет систематического образования по программированию, я не занимался с педагогом-программистом, который бы меня учил , что значит "правильно усваивать и понимать"

[Stilet]

складывается ощущение, что их авторы писали их для людей такого же уровня в программировании, как и они сами

Ну да. Есть такое.
Я тебе посоветую класические советские книги по Паскалю (а еще лучше книги самого Вирта) и книгу Тейксеры и Пачеко для Делфи. Остальная литература лично меня не зацепила в плане объяснений.

мои вопросы вызывают такое раздражение у специалистов

Ошибаешься. Ниче такого. Просто ты должен научиться искать, тогда большинство вопросов сами и отпадут. По словам, обрывкам фраз. Не важно как искать.

как сделать массив полем формы?

Так:

type
  TForm1 = class(TForm)
  private
    massiv:Array[бла-бла] of бла-бла
    { private declarations }
  public
    { public declarations }
  end;

Почитай про инкапсуляцию кстати: https://ru.wikipedia.org/wiki/Инкапс...ограммирование)

[Андрей-ник]

Сообщение от min@y™

А ты тут плачешься, мля:

Я не плачусь, а поясняю, что учусь. Плакаться не в моих правилах. Сожалею, что я не был гением в 90-ые

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

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

Я так и стараюсь делать.
Ещё раз спасибо за реальные советы и помощь

[Stilet]

Сожалею, что я не был гением в 90-ые

Мавроди бы оценил

[newerow1989]

var
  Form1: TForm1;
  Massiv:array[1..10] of integer;
  Max,Min:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   //тут какой-то код, который работает при нажатии на этой кнопку
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer; 
begin
  Max:=Massiv[1]; Min:=Massiv[1];
  for  i:=2 to 10 do
      begin
      If  Massiv[i]>Max then Max:=Massiv[i];
      If  Massiv[i]<Min then Min:=Massiv[i];
      end;
  Label3.Caption:=’Наибольший элемент массива = '+IntToStr(Max)+#13+’Наименьший элемент массива = '+IntToStr(Min);
  ShowMessage('Обработка массива закончена!');
end;

Сойдет?

[Андрей-ник]

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

Сойдет?

Да, вполне сойдёт.
Только я описание Max и Min оставил во второй процедуре, не стал выносить.
Благодарю за отзывчивость.