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

wonder80 2004-05-06 11:21:01
1。如何读取一个文本文件,并将该文件的内容每一行添加到下拉列表框中?
2。如何读取一个文本文件,并将该文件的内容每一行添加到一个Memo中,并可以实现对某一指定行进行删除,进行添加某一行在末尾,显示在Memo中,并且写入到文本文件中?
请教高手帮忙!!
...全文
33 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;
每行都有个数组号删就自己写吧

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧