rmml.net
当前位置:首页 >> mEmo1.LinEs.ADD(EDit_nAmE.tExt); 这个 在DElphi... >>

mEmo1.LinEs.ADD(EDit_nAmE.tExt); 这个 在DElphi...

memo1.Lines.Text := memo1.Lines.Text + ' ' + Str3;

可能memo中有数据吧,memo写入前先clear比较稳妥

选择的字串的长度

2个一样的东西怎么比较? memo没有这个属性吧 是memo.lines.text 如果是问 memo1.Lines.Text和 memo1.Text的区别 那是没啥区别的 memo1.Lines.Text还是去调用了memo1.Text 只不过memo1.Lines属性可以按行去读取和控制

var i:integer; begin Memo2.Lines.Clear; for i := 0 to memo1.Lines.Count -1 do begin Memo2.Lines.Add(memo1.Lines.Strings[i]); end; end;

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:= 0 to Memo1.Lines.Count - 1 do begin if Memo1.Lines[i]=Edit1.Text then exit; end; Memo1.Lines.Add(Edit1.Text); end; 至于你的只显示两行,你是不是设置

在BUTTON事件中添加如下代码:Memo1.Lines.Add(Edit1.text); 要是把Memo1的内容保存用如下代码:Memo1.Lines.SaveToFile('C:\'+'test.txt');

这个其实很简单。 var a:integer; procedure TForm1.memo1Click(Sender: TObject); begin a:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0); //获取当前行号 edit1.Text:=memo1.Lines.Strings[a]; //记录显示 end;

1、for i := 0 to 99 do name[i] := #0;2、FillChar( name, SizeOf(name), 0 ); 例如:var a:array of Integer; //定义a为动态数组 count,i:Integer; begin SetLength(a,10); //给数组a确定大小 for count:=0 to 9 do//给数组a循环赋值 begin a[...

网站首页 | 网站地图
All rights reserved Powered by www.rmml.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com