TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Doplnění informací o procedurách a funkcích.
Lekce č.7
V této lekci navážeme na minulou doplníme si znalosti o procedurách a funkcích.
Procedury a funkce
Jako minule zde budu sice mluvit o procedurách ale úplně stejně to jde i u funkcí.
Lokální proměnné
Proměnné které jsou deklarovány uvnitř procedury se nazývají lokální proměnné a nejdou použít nikde jinde než právě v této proceduře. Tyto proměnné se mohou jmenovat stejně jako globální proměnné i jako lokální proměnné jiných procedur. I když to moc nedoporučuji. Může to vést k znepřehlednění kódu. Lokální proměnné všech procedur jsou uložené na stejném místě v paměti což jí pochopitelně šetří. Dávejte si dobrý pozor na to že jejich počáteční hodnota je zcela náhodná. Deklarují se pomocí klíčového slova var:
procedure
TForm1.zprava;
var i:
integer;
begin
...
...
var i:
real; //deklarace globální proměnné
...
procedure
TForm1.ukazka;
var i:
integer;
begin
i:= 1,5; //Toto je chyba i je typu integer tudíž do ní můžeme ukládat jen celá
čísla
i:= 5; // To je už v pořádku
end;
...
begin
i:= 1,5; //tohle je v pořádku protože mimo proceduru neplatí lokální proměnná
...
Přetížené procedury
Říkáme li o nějaké proceduře nebo třeba operátoru že je přetížený myslíme tím že pokud má jiný význam pro různé typy. Asi to nezní moc pochopitelně proto si to ukážeme na příkladu. Určitě si z minulé lekce pamatujete proceduru zprava s parametrem TextVOkne: String při jejím zavolání se vypsala zpráva uložená v tomto parametru. Raději sem tu proceduru napíšu:
procedure
TForm1.zprava (TextVOkne:string);
begin
ShowMessage(TextVOkne);
end;
Určitě by se ale hodilo kdyby jsme mohli pomocí této procedury vypisovat zprávy i s číselnými a reálnými hodnotami. To zařídíme tak že si nadeklarujeme procedury se stejným názvem a parametry takových typů které chceme používat. Poté je nadefinujeme jako přetížené tím že za hlavičku procedury napíšeme overload:
procedure
TForm1.zprava (TextVOkne:string); overload;
begin
ShowMessage(TextVOkne);
end;
procedure
TForm1.zprava (IntVOkne:integer); overload;
begin
ShowMessage(IntToStr(IntVOkne));
end;
procedure
TForm1.zprava (TextVOkne:string; DesetineCislo: Real); overload;
begin
ShowMessage(TextVOkne + FloatToStr(DesetineCislo));
end;
Ťeď stačí procedury už jenom volat:
...
zprava('Moje první přetížená procedura');
zprava('113')
zprava('Hodnota je',24.8)
...
Úkol
Takže vytvořte program v kterém bude proměnná Karel do které uložíte text, vypíšete ho pak do této proměnné uložíte celé číslo zase ho vypíšete a nakonec do něj uložíte reálné číslo a zase ho vypíšete. Kua už bych měl vymyslet nějaký pořádný úkol. Příště budeme mluvit hlavně o komponentách což bude spíš taková odpočinková lekce takže tam snad bude nějaký pořádný.
