線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:809
推到 Plurk!
推到 Facebook!

乘法表??

答題得分者是:careychen
allan0208
一般會員


發表:10
回覆:10
積分:4
註冊:2007-12-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-10-02 10:44:59 IP:211.72.xxx.xxx 訂閱

十六進位乘法表??
function DecToHexStr(n:integer):string;裡面要怎麼寫??
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
function DecToHexStr(n:integer):string;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function DecToHexStr(n:integer):string;
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
k : integer;
begin
for i := 2 to 15 do
begin
for j := 2 to 15 do
begin
k:=i*j;
Memo1.Lines.Add(IntToStr(i) '*' IntToStr(j) '=' DecToHexStr(k));
end;
end;
end;
end.
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-10-02 10:54:58 IP:218.210.xxx.xxx 訂閱
改用這個函數

IntToHex 自己查一下怎麼使用哦!!
------
價值的展現,來自於你用哪一個角度來看待它!!
系統時間:2024-05-05 14:33:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!