大哥们在帮助一下小妹!!!!!!!!!!(0分)

  • 主题发起人 主题发起人 wuchaa
  • 开始时间 开始时间
W

wuchaa

Unregistered / Unconfirmed
GUEST, unregistred user!
把一个文本文件11.txt格式是
kjdkdjk
djkfdlk
dsfjkjdf
一条一条的记录怎么导入combobox中。
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
sl : TStringList;
begin
ComboBox1.Clear;
sl := TStringList.Create;
sl.LoadFromFile( 'D:/1.txt' );
for i := 0 to sl.Count - 1 do
ComboBox1.AddItem( sl.Strings, Nil );

ComboBox1.ItemIndex := 0;
end;

end.
 
和刚才一样读出来

在用
combobox1.Items.Append();
循环加进去就行了
加之前先
Clear;

看你的帖子让我想起来电影《大腕》里的一句台词:

下辈子做女人挺好!

呵呵
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.LoadFromFile('c:/11.txt');
end;
 
楼上的两种方法都可以
 
非常感谢大家了。
 
途中借鉴
 
var
i : Integer;
sl : TStringList;
begin
ComboBox1.Clear;
sl := TStringList.Create;
try
sl.LoadFromFile( 'D:/1.txt' );
for i := 0 to sl.Count - 1 do
ComboBox1.Items.Add(sl.Strings);
finaly
sl.Free;
end;
 
不错,又学到东西了,呵呵
 
直接加也可以啊!
 
我也学到东西了。哈哈
 
good
看了确实有好处
 
我刚学 看得我云里雾里的 马马虎虎可以看明白 让我写就不一定可以写出来了哟
 
大哥大姐们 我试了一下 我怎么就读不进去呀 看不到任何结果呀
请你们指教一下 谢谢了~~!
 
现在小妹 怎么这么多啊!!!!!1
 
对于我们来说 你们都是我们的前辈呀 对于这个行业

我也希望我是大哥大姐呀 可以我没有那个资格 呵呵[:(]
 
大老远听到靓妹呼救,还以为能英雄救妹呢.
跑来一看,被一群狼围上了,顾命要紧,先彻啦!

Combox1.Items.LoadFormFile(nFileName);
 
正感兴趣,收藏。
 
一不小心误进狼窝!
 
哈哈,都是“X”字惹的祸。
 
后退
顶部