Error: Incompatible types
Portál: | amos.ukf.sk |
Kurz: | Programovanie 1 |
Kniha: | Error: Incompatible types |
Vytlačil(a): | Guest user |
Dátum: | piatok, 4 októbra 2024, 05:58 |
1. Incompatible types: 'Integer' and 'Extended'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); d:= a/b; if b<>0 then Label1.Caption:= 'Podiel: ' + IntToStr(d); end; { [Error] Unit1.pas(35): Incompatible types: 'Integer' and 'Extended' Nekompatibilné typy: Integer a Extended PREČO? Na ľavej strane príkazu priradenia d:= a/b; je premenná typu integer. Výsledkom delenia na pravej strane, je reálne číslo. RIEŠENIE Pri celočíselnom delení sa používa operátor div. Upravený zdrojový kód -------------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); d:= a div b; if b<>0 then Label1.Caption:= 'Podiel: ' + IntToStr(d); end; -------------------------------------------------------------------------------- } end. |