Memo1的处理

Question

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

Answer 1

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

Answer 2

上面的代码有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;

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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;