Matematické Fórum

procedure TForm1.Button1Click(Sender: TObject);
const seznam: array[1..10] of PChar = ('Praha','Brno','Ostrava','Plzeň','České Budějovice',
              'Olomouc','Jihlava','Pardubice','Hradec Králové','Zlín'); //pole se jmény měst
var i: Integer;
begin
  for i := 1 to 10 do              //procházíme pole s městy
    if Edit1.Text = seznam[i] then //když nějaké město napsané do Edit1 se nachází v poli
    begin
      Edit2.Text := 'Ano';         // tak vypíšeme do Edit2 ano (našli jsme)
      Break;                       //a vyskočíme z cyklu (už tam je, tak dál nehledáme)
    end
    else
      Edit2.Text := 'Ne';          //když ho nenajdeme, tak vypíšeme ne (není tam)
end;

const seznam: array[1..10] of String[20] = ('Praha','Brno','Ostrava','Plzeň','České Budějovice',
               'Olomouc','Jihlava','Pardubice','Hradec Králové','Zlín'); //pole se jmény měst