delphi memo录入问题
我想一个 memo 两个button 一个edit
memo中导入文本 然后点击一次 button edit1.txt 自动添加一行memo
再次点击 添加memo下一行文本 如何实现
我的代码是
==
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer ;
k:string ;
begin
label1.Caption:='0';
k:=label1.Caption;
i:=0;
j:=memo1.Lines.Count ;
if i <>j then
edit1.Text:= memo1.Lines[i] ;
i:=i+1 ;
i:=strtoint(k);
label1.Caption:= k ;
=====
貌似功能实现不了 请修正下
定义一个全局变量l;
procedure TForm1.FormShow(Sender: TObject);//初始化变量l值为0
begin
l:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=memo1.Lines.Strings[l];
inc(l);
end;
楼上的基本对，不过应该在调入文本文件之后清0：
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
memo1.Lines.LoadfromFile(opendialog1.FileName);
l:=0;
end;
end
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=memo1.Lines.Strings[l];
inc(l);
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
RT
用Delphi的越来越少了
三国要跳槽了？
是啊，马上不就到传说中的“金三银十”了吗？
引用
三国要跳槽了？
恩
去找李开复吧~~他正在招人呢？呵呵~~
招聘delphi工程师--工作地点：� ......
procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;&nb ......
