Názory ke článku Delphi - 6. lekce – Programujte.com

dvoumy?

Články před příchodem korektora ještě nejsou opraveny.

Ahoj mam problem.

1) Deklaruju funkci:
function Fce(i: integer): integer;

2) Napisu funkci:
function TForm1.Fce(i: integer): integer;
begin
i := 10;
end;

No a ja chci - kdyz kliknu na tlacitko tak mi to vypsalo do Labelu ze v promene i je 10. Jak na to?

Diky moc Smonty :-)

function TForm1.Fce(i: integer): integer;
begin
result:= i;
end;

// obsluha udalosti tlacitka
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:= intToStr(Fce(10));
end;

//
Jinak jednoduche funkce nemusi byt v tride deklarovany.
Zapis takove funkce je:
function Fce(i: integer): integer;
begin
result:= i;
end;

To nemůžete někdo napsat článek, kterej bych pochopil i já :smile11: :smile10:

Ahoj,
Potřeboval bych prosím pomoci s voláním funkcí.

Deklaroval jsem fci takto: function prevod1(cislo1:integer; cislo2:integer):integer;

Napsal jsem ji takto: function prevod1(cislo1:integer; cislo2:integer):integer;
begin
cislo1:=StrToInt(form1.Edit1.text);
cislo2:=StrToInt(form1.Edit2.text);
end;

Až do teď mi Delphi nehlásilo chybu, ale pokud si chci tuto fci zavolat(tímto způsobem):
prevod1(cislo1; cislo2);

Nastane chyba. Jinak mám verzi delphi 7, jestli to nějak pomůže a program měl ve své hotové fázi provádět základní početní operace se dvěma čísly, která si můžete libovolně zvolit do dvou textových polí. Vzhledem k tomu že mi nešli zavolat fce, udělal jsem vše složitěji přes procedury a dosahl jsem úspěchu. Bylo to ale zbytečně zdlouhavé, tak mě napadlo jestli by mi mohl někdo poradit, jak tuto fci zavolat, myslím, že chyba je v syntaxi
zavolání, ale také nemusí být. Díky za pomoc.