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);
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
有一个叫 Taking() 的procedure,
有二个按钮,
问题, 点第一个按钮的代码是调用Taking()的, 怎么才能点第二个按钮把Taking()终止或撤销
加个变量，做判断，为False时，E ......
DBGrid连接数据库文件，在Query的CachedUpdate为False的时候一切都正常，插入，删除
当我把CachedUpdate改为True时，插入表就会提示"Table is not indexed"，如果建立主键索引就可以了，但是我的数据表 ......
