如何逐行获取memo中的前15个字符?

Question

要如何逐行获取memo中的前15个字符把他放到memo2中呢？

Answer 1

var  s:string[15];
     i:integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
    begin
      s := Memo1.Lines[i];
      Memo2.Lines.Add(s);
    end;
end;

Answer 2

Memo2.Text := Copy(Memo1.Text, 1, 15);

Answer 3

var
  I: Integer;
  S: string;
begin
  S := Copy(Memo1.Text, 1, 15);
  for I := 15 downto 2 do
    Insert(#13#10, S, I);
  Memo2.Text := S;
end;

Answer 4

借2楼的哥们程序改一下 这样效率更高一些 嘿嘿 JFvar  s:string[15]
     i:integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
      s[i] := Memo1.Lines[i];
      Memo2.Lines.Add(s+'#13');
end;

Answer 5

错了
var  s:string[15]
     i:integer;
begin
  for i := 0 to 14 do
      s[i] := Memo1.Lines[i];
      Memo2.Lines.Add(s+'#13');
end;