Incompatible types: 'Integer' and 'Extended'

[flouwjke]

procedure TForm3.Button1Click(Sender: TObject);
var
  i:integer;
  lc1,lc2,lc3,lc4,lc5: double;
  lcsh1,lcsh2,lcsh3,lcsh4,lcsh5: double;
  lsh1,lsh2,lsh3,lsh4,lsh5: double;
  lc21,lc22,lc23,lc24,lc25: double;
  d1,d2,d3,d4,d5: double;
  q: double;
begin
  lcsh1:=StrToFloat(b1.Text);
  lsh1:=StrToFloat(c1.Text);
    if lcsh1-lsh1 >=10
      then
        lc21:=lcsh1;
         if lcsh1-lsh1 <10
      then
        i:= lcsh1-lsh1;
        case i of
        10:d1:=0;
        3: d1:=3;
        2: d1:=4;
        1: d1:=7;
        7..9: d1:=1;
        4..6: d1:=2;
      end;
    if i<1 then d1:=10;
    lc21:=lcsh1-d1;
    q:= lc1-lc21;



end;
end.

Что с Incompatible types: 'Integer' and 'Extended' делать на i:= lcsh1 - lsh1 ругается это изза lcsh1: double а i:integer ? Как исправить?

[Serge_Bliznykov]

делать на i:= lcsh1 - lsh1 ругается это изза lcsh1: double а i:integer ? Как исправить?

а что делать (чем будет равно i и какой выбор в case выполнится), если в lcsh1 будет, например 22.75, а в lsh1 - 17.33 ?!


А формально ответ на ваш вопрос такой,
можете попробовать написать так:

   i:= trunc( lcsh1-lsh1 );

[flouwjke]

Пасиба помогло ) ток не стал использовать транк просто поменял даубл на интегер