各位前輩~~我是初學者,想在 Memo 上出現以下的結果 ============== 1 22 333 4444 55555 666666 =============================================================== 1.以下是自己看書摸索,但不明瞭錯在何處,請指教謝謝!! 2.我現在是自己一頁頁看書學,但效果好像不好,也不是很能融會貫通, 請問前輩有何方法學好 delphi,謝謝前輩們. =============================================================== procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; begin for i:=1 to 6 do begin for j:=1 to i do begin Memo1.Lines.Text:=(IntToStr(i)); end; Memo1.Lines.Text:=(#13#10); end; end;

kate0921 您好：    Memo1.Lines.Text的意思是指整個Memo1的內容。 所以，Memo1.Lines.Text := 'I am here!';會讓Memo1的內容變成只有'I am here!'一行，先前的資料就不告而別了！ 因此您只要將每一行的完整資訊以Memo1.LinesAdd(.)加入即可，且不必再加入換行指令。 底下程式供您參考： <>< class="code"> procedure TForm1.Button1Click(Sender: TObject); var i, j : integer; msg : string; begin for i:=1 to 6 do begin msg := ''; for j:=1 to i do begin //Memo1.Lines.add(intToStr(i)) ; //Text := IntToStr(i); msg := msg IntToStr(i); end; Memo1.Lines.Add(msg); //Memo1.Lines.Text := 'I am here!'; end; end; RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

Sorry !! 插一下花    關於 memo 的應用，誠如 richtop 大大所言，我不多作介紹 只是再介紹一個函數 StringOfChar，Delphi 中 Help 說明如下： Returns a string with a specified number of repeating characters. 程式碼可以簡化如下

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  Memo1.Lines.Clear;
  for I := 1 to 6 do
    begin
      Memo1.Lines.Add(StringOfChar(IntToStr(I)[1],I));
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

相當感謝二位前輩的付出~ 你們的回答對我來說都很寶貴 學 delphi 這條路也不知能否走到最後 因為真的抓不到訣竅,能否指點一下學習方法,謝謝!!

kate0921 你好：    路能走多遠，不在路是否好走，而在你能堅持多久，因為路是人走出來的！ 找到一本好書徹底K完讀熟，就能有不錯的基礎了。至於什麼是好書？其實只要翻翻內容，如果都能看懂或了解 編排印刷不會太排斥，總之能讓你看得懂而且願意看下去，就是適合你的好書。 其次要， 多看：多觀摩別人寫的程式，如Delphi線上說明範例，上網找相關資訊與請求協助，例如，Delphi K.Top就是一個非常好的學習網站。 多記：將重要的訊息或小程式片段記下，當成自己的備忘錄，方便查詢與整合。 多想：當發現一個問題時，嘗試用你現有的知識，將該問題實做出來，日積月累下，解決問題的能力將提升。 以上是針對，打基礎的一些建議。 建議資料結構與演算法，也能看看，會提升你處理資料的能力與改進程式的執行效率。 一旦有了基礎，你就有能力選擇你要的資訊，研讀相關的技術，再鑽進某個領域。 在物件導向的世界裡，學會善用別人提供的元件也是一件重要的事，畢竟凡事自己來似乎緩不濟急，不符OO再利用的精神； 但如果你有基礎，也能讓你從中獲得一些啟發，或者當元件無法滿足你的要求時，你有能力改寫。 持續不斷的努力，會讓人因熟而生巧，這樣進步就會很快了。 簡要提供個人經驗，希望對你有所幫助。加油！與你共勉之！