请问？？？谢谢先！！！(50分)

B

black-eyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #1

文本文件的内容为：
A001309 20020418 3355844 西安 上海
A001552 20020418 4050041 南京 哈尔滨
A001749 20020418 3357890 乌鲁木齐 北京
其中上面的各字段间以Tab隔开（如果以多个空格或者别的符号隔开又怎么办？）
我想把上面的文本内容放到三个数组A,B,C中，
其中A[0]='A001309',A[1]='20020418',A[2]='3355844'
A[3]='西安',A[4]='上海'
B、C的意思也一样。

我知道VB里的split函数可以很容易的实现上述功能，但我不太喜欢用VB,
不知道Delphi有没有类似的函数，如果没有，又怎样去解决？

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #2

var
strs:tstringlist;
i:integer;
begin
strs:=tstringlist.create;
ExtractStrings([,],'data1,data2,data3',strs);
for i:=0 to strs.count-1 do
// ....:=str;
strs.free;
end;

 

B

black-eyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #3

天真：
ExtractStrings([,],'data1,data2,data3',strs);
这句出错，怎么回事呢？

 

K

KY99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #4

其实，你的问题可以用TstringList.CmmaText，不过这也有局限性，但对于解决你的问题
已足够了，具体的你看看帮助就知道了。
var
sList: TStringList;
I:integer;
begin
sList := TStringList.Create;
sList.CommaText:='A001309 20020418 3355844 西安 上海';
I:=sList.Count-1;
Edit1.Text:=sList;//这里将显示'上海'
sList.Free;
end;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #5

ExtractStrings
这个你可以看一下帮助，把那个单元引用进来

 

B

black-eyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-10

• #6

多人接受答案了。