问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)
-------------------
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)
解决方案 »
- cxgrid中全文检索问题.
- 具备小计、合计,有点难度的特定格式查询
- rave如何设置这样常用的打印方式?
- 怎么追啊?!!!!!!!
- 求教。CRC校验!
- 高手指教!delphi5中怎样将chm格式的帮助挂到应用程序中去?并且在程序中怎么激活它呢?
- delphi将excel导入access提示... adress at 00000000...错误,代码如下怎么解决啊
- DBEdit问题
- 一个MaskEdit控件的问题
- 如何让用TWebBrowser编的主页浏览器,不下载如.zip;.exe之类的文件?
- 一个简单的问题。关于sqlserver的触发器里写数据类型转化
- 如何如下功能呢?我把listview的背景设为图片,可如何把listview中的字体背景设为透明呢?
如果,如果你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!');
memo1.Lines.Strings[1]:=#13 + #13 + #13 + 'Text!';
不成立,因为此时memo中只有memo1.Lines.Strings[1] //应该是memo1.Lines.Strings[0]
2、Memo1.Lines[1].add(#13 + #13 + #13 + 'Text!');
3、count + Length(Memo1.Lines[i]) 没有包括行尾的回车;换行两个字符;
在计算该行的实际字符数时要连回车和换行苻加上;所以要加2;
在MEMO的每一行结尾,还有一个回车,就是#13#10,
占用的位置是2,所以每行要多加一个2
#13什么意思?#10什么意思?那“#10 + #13”呢?我在哪里能找到这些东西呢?帮助里没有啊。问题5
用Pchar()出现下面的错误:
[Error] Unit1.pas(94): Incompatible types: 'Char' and 'PAnsiChar'还剩问题4了大家帮帮忙,马上揭贴