Dotaz : Borland Delphi
Napsal: 29 dub 2008 17:39
Ahoj,
Mám dva dotazy:
1. jak se v Delphi zapisuje odmocnina? Myslel jsem, že sqr , ale to je jak už jsem zjistil druhá mocnina.
2. mám definovanou proměnnou test a násl. zdroj. text:
var test:integer;
a potom:
test:=10;
button1.caption:=inttostr(test);
na tlačítku button1 se mi tedy zobrazí číslo 10, když na něj kliknu(samozdřemě to co jsem napsal je jen podstatný výřez ze zdroj. kódu), ale já bych potrěboval udělat to samé ale pro datový typ real nebo extended. Jak by tedy vypadal kód?
A také bych potřeboval následující kód upravit pro real nebo extended:
procedure vysledek(vv: variant);
begin
Showmessage(vv);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a: variant;
begin
a:=4.25;
vysledek(a);
end;
Jde mi o řádek showmessage(vv); , což je normálně určeno pro datový typ string, ale s dat. typem variant to funguje také. Já to, ale potřebuji upravit pro real nebo extended. je jasné, že pokud procedure vysledek(vv: variant); změním na procedure vysledek(vv: real) už to fungovat nebude. co mám tedy dát místo Showmessage(vv);, aby to fungovalo s real
Mám dva dotazy:
1. jak se v Delphi zapisuje odmocnina? Myslel jsem, že sqr , ale to je jak už jsem zjistil druhá mocnina.
2. mám definovanou proměnnou test a násl. zdroj. text:
var test:integer;
a potom:
test:=10;
button1.caption:=inttostr(test);
na tlačítku button1 se mi tedy zobrazí číslo 10, když na něj kliknu(samozdřemě to co jsem napsal je jen podstatný výřez ze zdroj. kódu), ale já bych potrěboval udělat to samé ale pro datový typ real nebo extended. Jak by tedy vypadal kód?
A také bych potřeboval následující kód upravit pro real nebo extended:
procedure vysledek(vv: variant);
begin
Showmessage(vv);
end;
procedure TForm1.Button1Click(Sender: TObject);
var a: variant;
begin
a:=4.25;
vysledek(a);
end;
Jde mi o řádek showmessage(vv); , což je normálně určeno pro datový typ string, ale s dat. typem variant to funguje také. Já to, ale potřebuji upravit pro real nebo extended. je jasné, že pokud procedure vysledek(vv: variant); změním na procedure vysledek(vv: real) už to fungovat nebude. co mám tedy dát místo Showmessage(vv);, aby to fungovalo s real