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

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

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;

选择的字串的长度

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

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

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

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

var s:string; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute Then begin s:=OpenDialog1.FileName ; memo1.Lines.LoadFromFile(s); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TClo...

tstrings.values要求以一个单字符串作为下标,而tstrings.names是一个字符串集合。

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; 至于你的只显示两行,你是不是设置什...

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