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.