关于文件使用的两个问题,请教高手!!

wonder80 2004-05-06 11:21:01
1。如何读取一个文本文件,并将该文件的内容每一行添加到下拉列表框中?
2。如何读取一个文本文件,并将该文件的内容每一行添加到一个Memo中,并可以实现对某一指定行进行删除,进行添加某一行在末尾,显示在Memo中,并且写入到文本文件中?
请教高手帮忙!!
...全文
10 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ly_liuyang 2004-05-06
ailibuli(愛理不理) 的方法是最简单的
  • 打赏
  • 举报
回复
ailibuli 2004-05-06
procedure TForm1.Button1Click(Sender: TObject);
begin
//①"每一行添加到下拉列表框中"
ComboBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'file1.txt');

//②显示在Memo
memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'file1.txt');
//写入到文本文件中
memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'file1.txt');
end;
(注:假设文本文件在執行文件相同的目录下)
  • 打赏
  • 举报
回复
bankhank 2004-05-06
错拉~~上面是1行读入
procedure TForm1.Button5Click(Sender: TObject);
var
FileA: TextFile;
TempString: string;
begin
Memo1.Lines.Clear;
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FileA, OpenDialog1.FileName); { File selected in dialog }
Reset(FileA);
while not Eof(FileA) do
begin
Readln(FileA, TempString); { Read one line of file }
Memo1.Lines.Add(TempString);; { Put string in a TMemo control }
end;
CloseFile(FileA);
end;
end;
  • 打赏
  • 举报
回复
bankhank 2004-05-06
procedure TForm1.Button1Click(Sender: TObject);
var
FileA: TextFile;
TempString: string;
begin
Memo1.Lines.Clear;
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FileA, OpenDialog1.FileName); { File selected in dialog }
Reset(FileA);
Readln(FileA, TempString); { Read first line of file }
Memo1.Lines.Add(TempString);; { Put string in a TMemo control }
CloseFile(FileA);
end;
end;
每行都有个数组号删就自己写吧
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4970

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-06 11:21
社区公告
暂无公告