从字符串逐个读取Chars并将它们添加到TMemo

Question

  

可能重复：
  Adding Characters one by one to TMemo

您好， 我有一个字符串数组。我想在一个循环中逐个读取字符串的字符，然后将它们显示为一个Memo（逐个）。谁能告诉我怎么做？感谢

Answer 1

使用两个嵌套循环。第一个迭代字符串数组。第二个迭代每个字符串中的字符。

procedure DisplayCharsOneByOne(const arr: array of string; Memo: TMemo);
var
  s: string;
  c: Char;
begin
  for s in arr do
    for c in s do
      Memo.Lines.Add(c);
end;