for (i=1;i<=n_out;i  )
     result=(int)pow(2,double(4-i)); 

引言: 我碰到c语言中有这样的源码

for (i=1;i<=n_out;i  )
     result=(int)pow(2,double(4-i)); 

不知道在delphi中是怎么表示的？ 恳请前辈们指教

procedure TForm1.Button1Click(Sender: TObject);
var
 i, n_out: Integer;
 iResult: Extended;    begin
  n_out := 1000;
  for i := 1 to n_out do
     iResult := IntPower(2, 4-i);
end;    

var
 i, n_out: Integer;
 iResult: extended;    begin
  n_out := 1000;
  for i := 1 to n_out do
     iResult := IntPower(2, 4-i);
     memo1.Lines .add(extendedtostr(iResult));这句出错了
end;
  

引言: 多谢Zard的指点

var
 i, n_out: Integer;
 iResult: extended;    begin
  n_out := 1000;
  for i := 1 to n_out do
     iResult := IntPower(2, 4-i);
     memo1.Lines .add(extendedtostr(iResult));这句出错了
end;
  

如果我想得到的iResult是int型的，应该怎么修改呢？

沒有一個Function叫 extendedtostr 的 . > >即可. 另外

引言: 如果要将其转为integer的话，可以怎么写吗？？不好意思，不要嫌我烦哈

    procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
 iResult: Extended;
 iResult2: Int64;
begin
 iResult := IntPower(2, 10);     // 捨棄小數點部份
 iResult := Int(iResult);     // 將Extended轉為Int64
 try 
   iResult2 := Trunc(iResult);
   
   //顯示結果
   ShowMessage(IntToStr(iResult2)); 
 except
   ShowMessage('轉換失敗!!');
 end;
end;