小弟剛剛接觸Delphi，我想寫了個迴圈 11 21 31 41 51 61 71 81 91 22 32 42 52 62 72 82 33 43 53 63 73 44 54 64 55 我試了很久就是沒有辦法弄成我想要的樣子， 希望各位高手，能幫幫我！ 感激不盡，謝謝……

上一篇，貼的沒縮排，我刪除再貼一次  ^^    加入一個 menu 、一個 button    

    procedure TForm1.Button1Click(Sender: TObject);
var
  temp: integer;
  x, y: integer;
begin
  temp := 11;
  memo1.Clear;      for y := 0 to 4 do
  begin
    for x := 0 to (8 - 2 * y) do
    begin
      memo1.Lines[y] := memo1.Lines[y]   inttostr(temp   x * 10)   ' ';
    end;
    memo1.Lines.Add('');
    temp := temp   11;
  end;
end;    

就這樣，希望對你有幫助。 ________________________ 「有時候你以為天要塌下來了，其實是因為你站歪了！」

------
________________________
「有時候你以為天要塌下來了，其實是因為你站歪了！」

不好意思，在發表文章時系統會自動將前面的空白刪除，我要的執行結果並不是那樣，我要的是一個倒三角形的樣子，我用單引號來代表空白，但我希望執行時不要有單引號，只有數字，拜託各位高手幫幫我，非常謝謝。 11 21 31 41 51 61 71 81 91 '''''''22 32 42 52 62 72 82 ''''''''''''''33 43 53 63 73 '''''''''''''''''''''44 54 64 ''''''''''''''''''''''''''''55 這才是我要的，麻煩一下。 發表人 - ricky123 於 2002/09/15 12:29:37

procedure TForm1.Button1Click(Sender: TObject); var temp,x,y: integer; s:string; begin s:=' '; temp := 11; memo1.Clear; for y := 0 to 4 do begin for x := 0 to (8 - 2 * y) do begin memo1.Lines[y] := memo1.Lines[y] inttostr(temp x * 10) ' '; end; memo1.Lines.Add(s); s:=s ' '; temp := temp 11; end; end; end. 改成這樣試試看可不可以!! 我是剛入門的子弟,請大家多多指教!

------
我是剛入門的子弟,請大家多多指教!

上篇有誤,請勿參考!! 改成下面這樣試試看可不可以! procedure TForm1.Button1Click(Sender: TObject); var temp,x,y: integer; s:string; begin s:='xxxxxx'; //x代表空白 temp := 11; memo1.Clear; for y := 0 to 4 do begin for x := 0 to (8 - 2 * y) do begin memo1.Lines[y] := memo1.Lines[y] inttostr(temp x * 10) 'x'; end; memo1.Lines.Add(s); s:=s 'xxxxxx'; temp:=temp 11; end; end; end. 我是剛入門的子弟,請大家多多指教!

------
我是剛入門的子弟,請大家多多指教!

各位高手可以幫我解釋一下， memo1.Lines.Add(s); 這一行是做什麼用的，我想應該是前面的空白，可是為什麼第一行沒有空白呢？ 謝謝。

1.Memo1.Lines.Add(s); 是在 Memo1 的最後面加入一行字串, 字串內容為 s 且它會為傳該行的 Index 也可以用 Memo1.Lines.Append(s); 的方式,  不同的是此方式不回傳該行的 Index 2.在 for y := 0 to 4 do 這一行之前加入 Memo1.Lines.Add(s); 那 Memo1 的第一行就會是空白了。    -- Everything I say is a lie.

hagar大大： 照你這麼說的話，Memo1.Lines.Add(s); 是在 Memo1 的最後面加入一行字串,那是y=0時，memo1的第一行的最後面應該會加入s字串，y=1時，memo1的第二行的最後面應該會加入s字串，可是我的問題就是在，為什麼memo1的第二行卻是在最前面加入s字串，接下來的幾行也都是這樣，我就是這裡想不通，希望你可以幫我解釋一下，謝謝。 發表人 - ricky123 於 2002/09/26 00:52:45

對不起, 解釋沒清楚 Memo1.Lines.Add(s); 是在 Memo1 的最後面加入一行字串 意思就是在 Memo1 的最後一行之後再加入一新行 不是在將某行的內容改變或將某行的內容加入字串。    -- Everything I say is a lie.

謝謝各位高手熱心的幫忙，可是照這種寫法就沒有辦法顯示在lable上了，請問各位高手有沒有辦法可以秀在lable上，另外我還想了解一下可不可以直接秀在form上，謝謝……感激不盡……

引言: 謝謝各位高手熱心的幫忙，可是照這種寫法就沒有辦法顯示在lable上了，請問各位高手有沒有辦法可以秀在lable上，另外我還想了解一下可不可以直接秀在form上，謝謝……感激不盡……

您是說要將顯示在 TMemo 的內容顯示在 TLabel 上嗎？ 那 TMemo 上每一行的字串後面加個 #13#10 例： Label1.Caption := '第一行' #13#10 '第二行'; 若是要顯示在 TForm 上的話 用 TCanvas.TextOut 的方式 例： Form1.Canvas.TextOut(1, 2, '字串'); // 1 表 x 座標, 2 表 y 座標 -- Everything I say is a lie.