急 如何调出memo里的内容？

Question

memo1.lines.text=loadformfilename(appliaction.path+'cjb.text')
我忘了这句是怎么写的了

Answer 1

直接用loadfromfile方法吧
就不会看Help？http://lysoft.7u7.net

Answer 2

memo1.lines.loadfromfile(appliaction.path+'cjb.text')

Answer 3

错
memo1.lines.loadfromfile(extractfilepath(application.exename)+'cjb.text')

Answer 4

memo1.lines.lodefromfile(appliaction.path+'cjb.text')

Answer 5

你不是要导出Memo的内容吗?
memo1.savetofile(extractfilepath(appliaction.exename)+'cjb.text')

Answer 6

意思是我有一个存放密码的文件cjb.text
我现在要把它读出来，

Answer 7

可以用文件读取的方式，首先打开文本文件--〉读取每一行-->>然后加入到memo1中。
F:TxtFile;
app,ss:string;
app:=appliaction.path+'cjb.text';
Assign(f,app);
reset(f);
while not eof do 
try
  Readln(ss,f);
  memo1.lines.add(ss);
exceptend;

Answer 8

最简单最基本的方法可以这样实现：在窗体上加一个Memo1，Opendialog1，Button1控件，在Opendialog1的Filter中设定打开文件的类型，如*.TXT(文本文件），代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then    //打开“打开”对话框
  begin
    Memo1.Lines.LoadFromFile(opendialog1.FileName );  //在Memo1中加入文件
  end;end;