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

謝謝各位
書本找不到><"

您好

方法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 (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

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) );

謝謝 我用好了
金字塔 形狀 我在找一下
如果 你知道了 麻煩告訴我一下
謝謝唷!!

調整一下輸出的位置就出來了
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

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.