delphi txt

在combobox1的items属性中输入“第一章”、“第二章”、“第三章”。然后： procedure TForm1.ComboBox1Change(Sender: TObject); begin case combobox1.ItemIndex of 0:memo1.Lines.LoadFromFile('c:\文本1.txt'); 1:memo1.Lines.LoadFromFile('c:\文本2.txt');