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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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