Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
我用 delphi 1.0, memo 的內容應該可以超過 255 個字, 我因為某種需求,一定要用 str:=memo1.text; 這樣的語法來獲得 memo 中的資料不能用 lines, 那 string 不能超過 255 我又怎麼取出超過 255 的部份呢 ?
TMemo 有個 GetTextBuf 方法, 可以取得 Memo 的內容.
以下有一個例子:
![]() |
1. File | New Project |
![]() |
2. 在 Form 中安置 TMemo 兩個, TButton 一個 |
![]() |
3. Button1 的 OnClick 事件(將 Memo1 的內容複製到 Memo2):
procedure TForm1.Button1Click(Sender: TObject); var szBuffer: PChar; iSize: integer; begin iSize := Memo1.GetTextLen; Inc(iSize); GetMem(szBuffer, iSize); Memo1.GetTextBuf(szBuffer, iSize); Memo2.SetTextBuf(szBuffer); FreeMem(szBuffer, iSize); end; |
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |