老大,麻烦给点分嘛,意思意思一下也行啊!
var F:TextFile;
FileName,S:String;
begin
FileName:=ExtractFilePath(Application.ExeName)+'/Test.txt';//这个是你文件的路径及文件名
AssignFile(F,FileName);
Reset(F);
while not EOF(F) do
begin
Readln(F,S);
ComboBox1.Items.Add(S);
end;
CloseFile(F);
ComboBox1.ItemIndex:=0
end;