Question

我的TMemo装有文本。我想选择使文本尽可能大的字体大小。以下代码不起作用，可能是因为我将旧的Delphi画布与新的TextSettings混合了。

我不知道历史，但是似乎我正在使用旧的Delphi字段和某些新的Android字段的混合物。有人可以澄清吗？更好的是，我无需发表问题就可以在哪里阅读此类问题！搜索解决方案具有挑战性，因为许多“ Delphi”解决方案都不适用于Android。

  mw := 0;
  for i := 0 to Memo1.Lines.Count-1 do begin
    w := Memo1.Canvas.TextWidth(Memo1.Lines[i]);
    if (w > mw) then begin
      mw := w;
      ml := Memo1.Lines[i];  // assumes fixed width
      end;
    end;
  // size font so longest line fits in memo
  Memo1.TextSettings.font.Size := 100;
  while (Memo1.Canvas.TextWidth(ml) > width) do
    Memo1.TextSettings.font.Size := Memo1.TextSettings.font.Size - 1;