关于文件使用的两个问题，请教高手！！

[wonder80]

1。如何读取一个文本文件，并将该文件的内容每一行添加到下拉列表框中？
2。如何读取一个文本文件，并将该文件的内容每一行添加到一个Memo中,并可以实现对某一指定行进行删除，进行添加某一行在末尾，显示在Memo中，并且写入到文本文件中？
请教高手帮忙！！

[bankhank]

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;
每行都有个数组号删就自己写吧

• 打赏
• 举报

回复 赞

[bankhank]

错拉~~上面是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;

• 打赏
• 举报

回复 赞

[ailibuli]

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;
(注：假设文本文件在執行文件相同的目录下)

• 打赏
• 举报

回复 赞

[ly_liuyang]

ailibuli(愛理不理) 的方法是最简单的

• 打赏
• 举报

回复 赞