Question

delphi txt

我打开一个TXT小说文件，现在我想把小说按章节拆分出来，章节名字加到 combobox1里面，点击一个章节名，则memo1出现该章节的具体内容，该如何写？
比如，章节名称是：第一章，第二章，，，第N章；或者是；第1章，第2章。。。章节不固定，可能是100章，也可能是1000章。
高手回答。

Answer 1

在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');
2:memo1.Lines.LoadFromFile('c:\文本3.txt');
end;
end;
如果真有1000章，那combobox1恐怕撑不下，改用listbox吧。