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);
相关问答：
delphi内置的加密解密单元是哪个？
Delphi有内置加密解密单元？
delphi里有个加密和解密的单元
引用
delphi里有个加密和解密的单元
是哪个？
windows的api？
标准加密的源代码，网上 ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
我在用mainmenu菜单控件和savediglog控件设置保存文件对话框时，虽然能够顺利保存文件，但是我对已经保存过的文件进行再次保存的时候，并不能和很多软件一样直接保存，而是仍然弹出保存对话框，而我不想它打开，而是 ......
下载了最新的delphi 2010,安装，
最新版本，帮助需要单独安装，帮助文件做的比以前好些
在我个人电脑上成功安装，使用正常；
用光盘将安装文件拷到办公室，安装，一切正常；
安装完成后，启动delphi 201 ......
