怎样判定memo控件能显示多少行

Question

怎样判定memo控件能显示多少行

Answer 1

memo能容纳64k，你看能显示多少行？

Answer 2

Memo效率太低， 还是别用好！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  SaveFont: HFont;
  I: Integer;
  SysMetrics, Metrics: TTextMetric;begin
  DC := GetDC(0);
  GetTextMetrics(DC, SysMetrics);
  SaveFont := SelectObject(DC, memo1.Font.Handle);
  GetTextMetrics(DC, Metrics);
  SelectObject(DC, SaveFont);
  ReleaseDC(0, DC);  i:=Memo1.ClientHeight-2;
  i:=trunc(i/(metrics.tmHeight ));
  caption:=inttostr(i);end;

Answer 4

楼住不会是问MEMO中当前有几行吧？
Memo.Lines.Count