HEX , ASC ,OCT函數 |
|
尚未結案
|
|
sundy6719
初階會員   發表：136 回覆：78 積分：42 註冊：2002-07-10 發送簡訊給我 |
|
|
00156
高階會員 發表：45 回覆：195 積分：112 註冊：2002-06-01 發送簡訊給我 |
|
|
sundy6719
初階會員 發表：136 回覆：78 積分：42 註冊：2002-07-10 發送簡訊給我 |
請教一下有沒有範例
雖然我看了他的範例可是還是做不出來
procedure TForm1.Button1Click(Sender: TObject); var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption IntToHex(Edit1.Text[i],2) ' ';
except
Beep;
end;
end;
end;
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
http://www.sunhome.net/index.php?unit=article&action=disp&typeid=4&id=3702
http://www.swissdelphicenter.ch/torry/showcode.php?id=1076 發表人 - miles 於 2004/10/18 15:15:27
------
我不是高手, 高手是正在銀幕前微笑的人. |
|
00156
高階會員 發表：45 回覆：195 積分：112 註冊：2002-06-01 發送簡訊給我 |
引言: 請教一下有沒有範例 雖然我看了他的範例可是還是做不出來 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin Label1.Caption := ''; for i := 1 to Length(Edit1.Text) do begin try Label1.Caption := Label1.Caption IntToHex(Edit1.Text[i],2) ' '; except Beep; end; end; end;改成這樣試試看：
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
Label1.Caption:='';
for i:=1 to Length(Edit1.Text) do
Label1.Caption:=Label1.Caption IntToHex(Ord(Edit1.Text[i]),2) ' ';
end;
發表人 - 00156 於 2004/10/18 16:49:10
|
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
發表時間：2004-10-16 12:39:44
IP:203.70.xxx.xxx 未訂閱
系統時間：2025-02-26 5:20:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |