备忘录中字符串的长度

Question

我有一个备忘录，里面有两行文字，像

<>之前Aaaa: DSFDSFDSFFSFBBBBBBBBB: FGDFGFF之前

我想让":"在同一行-一个在另一个下面，如

<>之前aaaa级:dsfsfdbbbbbbbb: ghjghjgjhjg之前

我使用delphi和代码。

memo.lines.add(some_string + ' : ' + some_string);

我试图使用SetLength，但现在不知道如何。

Answer 1

设置备忘录的字体为等宽字体，如Courier New。这样，每个字符将具有相同的宽度，您可以使用它来对齐文本或在备忘录中显示ASCII艺术。

或者你可以使用listview或stringgrid，它们支持在列中显示文本。对于您的目的，这可能是更好的选择。

如果您决定坚持备忘录，那么除了设置字体之外，您还必须使冒号之前的所有字符串具有相同的宽度。您可以使用一个简单的填充函数。SwissDelphiPages给出了一个很好的例子:

function RightPad(S: string; Ch: Char; Len: Integer): string;
var
  RestLen: Integer;
begin
  Result  := S;
  RestLen := Len - Length(s);
  if RestLen < 1 then Exit;
  Result := StringOfChar(Ch, RestLen) + S;
end;

你可以这样使用:

Memo.Lines.Add(RightPad('some_string', ' ', 20) + ':' + some_string);

Answer 2

要格式化字符串，可以使用System.SysUtils.Format

procedure Output( const AStr1, AStr2 : string; AWidth : Integer );
begin
  Writeln( Format( '%-*.*s : %s', [AWidth, AWidth, AStr1, AStr2] ) );
end;
procedure Main;
begin
  Output( 'aaaa', 'dsfdsfdsffsf', 9 );
  Output( 'bbbbbbbbb', 'fgdfgff', 9 );
end;

控制台的输出将是

<>之前Aaaa: DSFSFD哈哈哈哈哈哈之前

要在TMemo中发布此输出，您必须选择等宽字体。

一个更好的选择是使用2列的网格。

Answer 3

我猜你必须在所有行上做两次迭代:首先要知道":"之前字符串的最大长度。然后你必须进行处理，以便让":"单独移动。对于第二次迭代，使用前面在其他回复中显示的一种方法。