问1: #13 什么意思,不是回车吗?若是的话,“Memo1.Lines.Strings[0] := #13 + #13 + #13 + 'Text!';” 怎么把它当空格了。问2:“Memo1.Lines[1] := #13 + #13 + #13 + 'Text!';”这句话怎么错了?为什么赋值不成功?问3:一个Memo,如下,我想查找Lines[0],注释那一行得加2,为什么?count := count + Length(Memo1.Lines[i]) 不就是每行的字符个数吗?加2是怎么个意思?
-------------------
Memo1.Lines.Text := #13 + #13 + 
#13 + 'Text!';
Memo1.Lines.String[0] := #13 + #13 + 
#13 + 'Text!';
Memo1.Lines[0] := #13 + #13 + #13 
+ 'Text!';
Memo1.Lines.Text := #13 + #13 + 
#13 + 'Text!';
-------------------
procedure TForm1.Button3Click(Sender: TObject);
var i,j,count: integer;
begin
  count := 0;
  for i := 0 to Memo1.Lines.Count do
    begin
      for j := 1 to Length(Memo1.Lines[i]) do
        begin
          if pos('Lines[0]',Memo1.Lines[i]) <> 0 then
            begin
              Memo1.SetFocus;
              Memo1.SelStart := pos('Lines[0]',Memo1.Lines[i]) + count - 1;
              Memo1.SelLength := Length('Lines[0]');
            end;
        end;
      count := Length(Memo1.Lines[i]) + count + 2;//为什么要加2???
    end;
end;问4:TString和String如何区别?问5:只含有一个的字符的字符串能转成字符型吗?怎么转?问6:内容空(感情分10)

解决方案 »

  1.   

    第一个问题:#10#13+#10#13+#10#13'Text!'
      

  2.   

    2.改后“Memo1.Lines[1].text := #13 + #13 + #13 + 'Text!';”
      

  3.   

    第二个问题:
    如果,如果你MEMO的第一行有数据
    memo1.Lines.Strings[1]:=#13 + #13 + #13 + 'Text!';
    是成立的,因为memo1.Lines.Strings[1]已经存在了;
    如果你的memo是清空了的,
    memo1.Lines.Strings[1]:=#13 + #13 + #13 + 'Text!';
    不成立,因为此时memo中只有memo1.Lines.Strings[1]对应的listbox,checkbox等也是这样,一般应该这样写
    Memo1.Lines.Add(#13 + #13 + #13 + 'Text!');
      

  4.   

    to saien(有问必答) :你那样的写法是编译不过的,你可以尝试一下
      

  5.   

    如果你的memo是清空了的,
    memo1.Lines.Strings[1]:=#13 + #13 + #13 + 'Text!';
    不成立,因为此时memo中只有memo1.Lines.Strings[1] //应该是memo1.Lines.Strings[0]
      

  6.   

    1、#13 回车,#10换行;
    2、Memo1.Lines[1].add(#13 + #13 + #13 + 'Text!');
    3、count + Length(Memo1.Lines[i]) 没有包括行尾的回车;换行两个字符;
       在计算该行的实际字符数时要连回车和换行苻加上;所以要加2;
      

  7.   

    第三个问题:
    在MEMO的每一行结尾,还有一个回车,就是#13#10,
    占用的位置是2,所以每行要多加一个2
      

  8.   

    问题1
    #13什么意思?#10什么意思?那“#10 + #13”呢?我在哪里能找到这些东西呢?帮助里没有啊。问题5
    用Pchar()出现下面的错误:
    [Error] Unit1.pas(94): Incompatible types: 'Char' and 'PAnsiChar'还剩问题4了大家帮帮忙,马上揭贴