0

我正在开发一个程序，其功能之一是文本文件下载器。当用户按下“下载”按钮时，程序会在备忘录上下载一个具有定义格式的文本文件。

示例 1

用户A：意大利

用户 B：美国

每个数据都由“：”划分，我想将这些数据添加到 StringGrid 中。所以我想每次找到“：”字符时都要打破字符串。备忘录示例的第一行变为：

示例 2

用户A

意大利

此时程序将线条添加到 StringGrid 中，在这里您可以看到一个图像作为示例。我写了这段代码：

for i:= 0 to 4096 do
 begin
   if (length(Memo1.Lines.Strings[i])>0) then
    begin
      StringGrid1.Cells[1,i+1]:=Memo1.Lines.Strings[i];
    end
   else
    begin
      break;
    end;
 end;

我的问题如下：user_A:italy例如，当备忘录中的文本是 2 行 [user_A(break line)italy] 的字符串时，结果仍然是user_A:italy. 我正在使用这段代码：

s:=Memo1.Text;
s:=WrapText(s, #13#10,[':'],20);
Memo1.Lines.Add(s);

你有什么建议吗？

4

0 回答 0