delphi 请教TXT读写

来源：百度知道 编辑：UC知道 时间：2024/06/03 00:33:06
=========================================
1.txt //里面的内容
"我的笔记"

2.txt //里面的内容
"完成的作业"
"未交的作业"

3.txt //里面的内容
我的笔记
常用函数 20091022 217
常用控件 20091021 216

完成的作业
窗口设计 20091103 010
写计数器 20091102 009

未交的作业
文本设计 20091010 301
时钟设计 20091009 300

=========================================
怎么才能把1.txt和2.txt的
我的笔记
完成的作业
未交的作业

一起读到ComboBox1里面删除""符号
在选择ComboBox1的我的笔记时
ComboBox2就显示出
常用函数
常用控件

在选择ComboBox1的未交的作业时
ComboBox2就显示出
文本设计
时钟设计

再选择ComboBox2的文本设计时
Edit1或者Label1就读取日期
20091010后面的301就不要了

请高手帮忙写写谢谢！
谢谢下面的朋友帮忙可是不是控件定义出是读取出的

文本操作，利用tstringlist.loadfromfile
ex:
xx1 ：tstringlist；
xx2 ：tstringlist；
xx3 ：tstringlist；
声明后再创建
xx1 := tstringlist.create;
xx1.loadfromfile('c:\1.txt')完整路径，可以用opendialog控件打开，然后opendialog.filename就是完整路径了。
combobox1.items := xx1;忘了这个能不能直接赋值了，如果不行，就遍历0～xx1.count-1一条一条插。

点combobox1，然后再它的change事件中设置combobox2的内容，就可以同时插入combobox2了。

同样在点box2时将xx2的需要显示的地方按想要的赋值到edit.text
最后记得释放xx1.Free

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure ComboBox2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declaration