Možná budete překvapeni, ale pro vytvoření uvedené aplikace budete muset napsat pouze dva řádky programu. Jedná se samozřejmě pouze o základní kostru aplikace, která například nekontroluje, zda místo vzdáleností neuvedete nepovolený text. Aplikaci je proto možné dále zdokonalovat.

Povelem Ctrl+N Zadáme vytvoření nového formuláře a dále postupujte dle uvedeného postupu:

1) Zobrazí se nám několik oken, která si srovnáme vhodně na ploše obrazovky. Vlevo nahořu je vhodné umístit hlavní okno systému KLONDAIK, vpravo paletu komponent pro jejich přemístění na formulář. V levé části umístíme okno pro zadávání vlastností objektů. V pravé části umístíme zatím prázdné okno naší nové aplikace. Pod ní ponecháme okno pro zápis programu s jeho vygenerovaným úvodem a závěrem.

2) V okně nastavení vlastností zadáme pro formulář ve vlastnosti Caption text 'Převod vzdáleností míle <> kilometry'. Všimněte si, že zadávaný text se ihned zobrazuje v záhlaví formuláře naší aplikace. Ve vlastnosti Position lze nastavit hodnotu poScreenCenter, aby se formulář aplikace zobrazoval po spuštění uprostřed obrazovky.

3) Na paletě komponent vybereme komponentu Label a myší ji nakreslíme na formulář aplikace. Jedná se o textový popisek. V okně nastavení vlastností potom zadáme ve vlastnosti Caption text 'Míle:'. Stejným způsobem potom umístíme na formulář další text s nápisem 'Kilometry'. Nastavit můžeme také velikost fontu ve vlastnosti Font.

4) Na paletě komponent vybereme komponentu Edit a myší ji nakreslíme na formulář aplikace. Jedná se o pole pro zadávání uživatelského textu. V okně nastavení vlastností potom zadáme ve vlastnosti Text hodnotu nula. Jedná se o počáteční hodnotu zobrazovanou při spuštění aplikace. Stejným způsobem potom umístíme na formulář další editační pole pro zadávání vzdáleností v kilometrech.

5) Na paletě komponent vybereme komponentu Button a myší ji nakreslíme na formulář aplikace. Jedná se o povelové tlačítko pro spuštění zadané akce. V okně nastavení vlastností potom zadáme ve vlastnosti Caption text 'Převod na kilometry'. Tlačítku v dalším kroku zadáme akci pře přepočet vzdálenosti. Stejným způsobem potom umístíme na formulář další tlačítko pro výpočet mílí ze zadané vzdálenosti v kilometrech.

6) Po dvojkliknutí na horní tlačítko se v programu vygeneruje automaticky úvod a závěr obslužné procedury pro převod zadané vzdálenosti v mílích na vzdálenost v kilometrech. Stačí přitom doplnit pouze mezi řádky begin a end vlastní výpočet:

Edit2.Text:=Edit1.Text * 0.621371;

Obdobným způsobem se doplní pro druhé tlačítko pro výpočet vzdálenosti v mílích podle zadané vzdálenosti v kilometrech:

Edi1.Text := Edit2.Text * 1.609344;

Vytvořenou aplikaci je nyní možné spustit stiskem funkční klávesy F9. Protože není aplikace zatím uložena na disk, jsme nejprve dotázáni na její jméno. Pokud jste zadali vše přesně podle výše uvedených pokynů, měla by se Vámi vytvořená aplikace spustit.

Výpočet je možné upravit tak, aby se výsledek funkcí RealRound zaokrouhlil na tři desetinná místa. Výpočty proto upravte podle následujícího vzoru, kde je uveden celý program, ve kterém bylo nutné zadat pouze dva řádky s výpočtem. Ostatní řádky jsou generovány automaticky systémem:

Program mile;
procedure TForm.Button1Click(Sender: TObject);
begin
    Edit2.Text:=RealRound(Edit1.Text * 0.621371, 3);
end;
procedure TForm.Button2Click(Sender: TObject);
begin
    Edit1.Text:=RealRound(Edit2.Text * 1.609344, 3);
end;
end.