這要怎麼改成英文輸出呢謝謝 |
尚未結案
|
love898928
一般會員 發表:3 回覆:1 積分:0 註冊:2009-08-19 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
const fontsize=12 ; wordsize=fontsize 4; var i,j:integer; begin canvas.Font.Size:=fontsize; canvas.Brush.Style:=bsclear; for i:=1 to 6 do for j:=1 to i do canvas.textout(wordsize*(j 6),wordsize*i,inttostr(j)); 現在 輸出 是 數字 1 ~6 請問怎麼改成 A ~E 呢 還有 如何讓他 輸出時的形狀 是 像金字塔那樣 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 謝謝各位 書本找不到><" |
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好
方法1 : inttostr(j) 改成 chr(j 64) 方法2 : inttostr(j) 改成 copy('ABCDEFGHIJKLM......', J,1) 問題2 在每個字元是固定寬的情形 (例 I 和 W 同寬) inttostr(j) 前加適當長的空格字串 否則要用一個現成 FUNCTION 去算出每列字串的實際寬度 可是, 那個現成 FUNCTION 名我忘了... -_- ... SORRY
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
tuga
高階會員 發表:16 回覆:109 積分:120 註冊:2002-07-13 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
const fontsize=12 ; wordsize=fontsize 4; var i,j:integer; begin canvas.Font.Size:=fontsize; canvas.Brush.Style:=bsclear; for i:=1 to 6 do for j:=1 to i do canvas.textout(wordsize*(j 6),wordsize*i, chr(ord('A')-1 j) ); |
love898928
一般會員 發表:3 回覆:1 積分:0 註冊:2009-08-19 發送簡訊給我 |
|
eaglewolf
資深會員 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
調整一下輸出的位置就出來了
canvas.textout((wordsize*(6-i) div 2) wordsize*(j-1),wordsize*(i-1), chr(ord('A')-1 i));
------
先查HELP 再查GOOGLE 最後才發問 沒人有義務替你解答問題 在標題或文章中標明很急 並不會增加網友回答速度 Developing Tool: 1.Delphi 6 2.Visual Studio 2005 3.Visual Studio 2008 DBMS: MS-SQL |
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |