名前
題名
▼ Mr.XRAYさん > > に Trunc 関数関係のサンプルを追加しました． > > こんな例もあります． > 動作確認は [890] のサンプルと同じで > Windows 7 U64(SP1) + Delhi XE(UP1) Pro です． > > procedure TForm1.Button1Click(Sender: TObject); > var > LInteger : Integer; > begin > LInteger := Trunc(5 * 0.01 * 100); > > Memo1.Lines.Clear; > Memo1.Lines.Add(IntToStr(LInteger)); > end; > > procedure TForm1.Button2Click(Sender: TObject); > var > LInteger : Integer; > LDouble : Double; > begin > LDouble := 5 * 0.01 * 100; > LInteger := Trunc(LDouble); > > Memo1.Lines.Clear; > Memo1.Lines.Add(IntToStr(LInteger)); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link