Memo1的处理

[Frewin]

有一TStringList ，数据如下 a b c e f g
现在需要将Memo1填写为 a b
c e
e f
g

[gzmhero]

strs:TStringList;

for i:=0 to strs.Count/2-1 do
Memo1.Lines.Add(strs.Strings[i*2]+' '+strs.Strings[i*2+1]);

[gzmhero]

上面的代码有bug，当strs是奇数数量会出错。

procedure TForm1.Button1Click(Sender: TObject);
var
    strs:TStringList;
    i:integer;
begin
    strs:=TStringList.Create;
    strs.Add('a');
    strs.Add('b');
    strs.Add('c');
    strs.Add('d');
    strs.Add('e');
    strs.Add('f');
    strs.Add('g');

    for i:=0 to (strs.Count div 2)-1 do
        Memo1.Lines.Add(strs.Strings[i*2]+' '+strs.Strings[i*2+1]);

    if (strs.Count mod 2)<>0 then
        Memo1.Lines.Add(strs.Strings[strs.count-1]);

   strs.Free;
end;

[leihao2041]

[Quote=引用 1 楼 gzmhero 的回复:]
strs:TStringList;

for i:=0 to strs.Count/2-1 do
Memo1.Lines.Add(strs.Strings[i*2]+' '+strs.Strings[i*2+1]);
[/Quote]

日志-病毒-网络-操作系统-安全-c#-asp.net-java-delphi-sql-oracle学习资源
在这里可以找找http://japee.com.cn/jew/bbs.aspx

[Frewin]

请问楼上，怎样将一个Memo 赋值给TStringList ？

[blazingfire]

var
List: TStringList;
begin
List := TStringList.Create;
....
List.Assign(Memo.Lines);
....
end;

[Frewin]

接上题：
为了统一宽度，怎样将字符设置为限长（6个字符），不够的补空格
如：
abcf abc
edf edg
在第二行edf后补一空格，使得宽度一样
abcf abc
edf edg

[Frewin]

请问TStringList可以排序吗？

[gzmhero]

[Quote=引用 7 楼 Frewin 的回复:]
请问TStringList可以排序吗？
[/Quote]

可以。

[踢踏]

使用等宽字体，如宋体等，
Format('%-6s%s',['abcf','abc']);
Format('%-6s%s',['edf','edg']);

[gzmhero]

[Quote=引用 6 楼 Frewin 的回复:]
接上题：
为了统一宽度，怎样将字符设置为限长（6个字符），不够的补空格
如：
abcf abc
edf edg
在第二行edf后补一空格，使得宽度一样
abcf abc
edf edg
[/Quote]

需求模糊，每行的长度是多少？

[Frewin]

只需要限制第一列全部是6个字符就行了。

[blazingfire]

procedure TForm1.Button1Click(Sender: TObject);
var
  StrList: TStringList;
  i: integer;
  Line: string;
begin
  StrList := TStringList.Create;
  try
    StrList.Add('aabc');
    StrList.Add('b2');
    StrList.Add('c33');
    StrList.Add('ddbb');
    StrList.Add('edd');
    StrList.Add('fa');
    StrList.Add('gbb');
    StrList.Add('StrList.');
    Memo1.Lines.Clear;

    i := 0;
    while i < StrList.Count do
    begin
      Line := StrList[i];
      if Length(Line) < 6 then
        Line := Line + StringOfChar(' ', 6 - Length(Line));//保证第一个长度为6
      if i + 1 < StrList.Count then
        Line := Line + StrList[i + 1];
      Memo1.Lines.Add(Line);
      Inc(i, 2);
    end;
  finally
    StrList.Free;
  end;
end;