如何将文本清单 添加到 combobox ?

Question

偶的文本是存在数据库的一个字段里的..如下:张三,[email protected];
李四,[email protected];
....
如何将清单按分号隔开,添加到Combobox中?张三,[email protected]
李四,[email protected]

Answer 1

将文本文件的内容读入到Tlist中，然后再处理就可以了

Answer 2

use query1 load table
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to Query1.RecordCount-1 do
    ComboBox1.Items.Add(Query1.Fields[0].AsString+','+Query1.Fields[2].AsString+','+Query1.Fields[2].AsString);
end;

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s:TStringList;
  i:integer;
begin
  s:=TStringList.Create;
  s.LoadFromFile('Temp.txt');
  for i:=0 to s.count-1 do
    combobox1.Items.Add(s.Strings[i]);
  FreeAndNil(s);   
end;
再处理一下行末“；”号的问题

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  strlist:TStringList;
  i:integer;
begin
  strlist := TStringList.Create;
  strlist.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.txt');
  for i := 0 to strlist.Count -1 do
    ComboBox1.Items.Add(strlist[i]);
  FreeAndNil(strlist);
end;