Temperature – Esempio di programma con gli array

const
  nMax = 100;

var
  frmTemperature: TfrmTemperature;
  citta: array[1..nMax] of String;
  temp: array[1..nMax] of Double;
  nCitta: Integer;

procedure TfrmTemperature.btnCaricaClick(Sender: TObject);
var
  i: Integer;
begin
  for i:=1 to nMax do
  begin
    citta[i]:=InputBox('Città',
      'Inserisci il nome (stringa vuota per finire): ', '');
    if citta[i]='' then
    begin
      nCitta:=i-1;
      Exit;
    end;
    temp[i]:=StrToFLoat(InputBox('Temperature',
      'Inserisci la temperatura di '+citta[i]+': ', ''));
  end;
end;

procedure TfrmTemperature.btnVisualizzaClick(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s:='Elenco delle città inserite e delle temperature'+#13;
  for i:=1 to nCitta do
    s:=s+citta[i]+'   '+FloatToStr(temp[i])+' °C'+#13;
  ShowMessage(s);
end;

procedure TfrmTemperature.btnCittaMinClick(Sender: TObject);
var
  i: Integer;
  min: Double;
  s: String;
begin
  min:=100;
// ricerca prima la temperatura minima
  for i:=1 to nCitta do
    if temp[i]<min then
      min:=temp[i];
// ricerca poi tutte le città che hanno la temperatura minima
  s:='Città con la temperatura minima: '+FloatToStr(min)+' °C'+#13;
  for i:=1 to nCitta do
    if temp[i]=min then
      s:=s+citta[i]+#13;
  ShowMessage(s);
end;