请大家帮助修改添加些代码(100)

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #1

一个 OpenDialog1 EDIT1 LISBOX1 memo1 目标:EDIT1里显路径不显文本名字. listbox里显具体名字 memo1里显文本具体内容 procedure TForm1.Button1Click(Sender: TObject);begin OpenDialog1.Filter := '文本文件 '; OpenDialog1.FileName := '*.txt '; if opendialog1.Execute thenedit1.text:=opendialog1.FileName; //在文本框显示路径(不是目的)end;

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #2

比如说:C:/Documents and Settings/Administrator/桌面/炖肉.txtedit1里显示:C:/Documents and Settings/Administrator/桌面/listbox1里显示:炖肉.TXT " listbox1.Items.Add('opendialog1.FileName;')"

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #3

var s:string;beginif dlgOpen1.Execute then begin s:=dlgOpen1.FileName; mmo1.Lines.Add(s); mmo1.Lines.Add(extractfilepath(s)); mmo1.Lines.Add(ExtractFileName(s));end;

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #4

试了不行.炖肉.TXT内容 把食材、炖料（料酒、酱油、葱、姜、蒜、超市买的炖料）放入压力锅（记住不要放盐）后把压力锅的安全阀盖上，开中火慢炖，等压力锅次气5分中后关火。静止压力锅放凉后放盐。盖上盖子（不需要盖安全阀）开大火，次气方可。想在备注框里显示,执行楼上的语句还是,备注框里显示"C:/Documents and Settings/Administrator/桌面/炖肉.txt"

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #5

var s:string;beginif Opendialog1.Execute then begin edit1.Text :=opendialog1.FileName; s:=Opendialog1.FileName; memo1.Lines.Add(s); memo1.Lines.Add(ExtractFileName(s)); listbox1.Items.Add(ExtractFileName(s));end;画弧修改后,LISTBOX里显示了文本名,下面就是备注里显示文本内容了.

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #6

memo1.LoadFromFile(opendialog1.FileName);

 

楚

楚辞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-12-23

• #7

试了试,可以.谢谢...