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

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

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

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;

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

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...

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

你可以用循环,计算出一个 string 再写入 比如 for i:=1 to 200 do begin if i mod 8 = 0 then begin memo1.lines.add(s); s:='+ '; end s:=s+' '+IntToStr(100+i); 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; 至于你的只显示两行,你是不是设置什...

这个其实很简单。 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;

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