Delphi返回数组，用过VB的朋友都知道Split这个函数好用Delphi里...(100分)

你

你若有情

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #1

在Delphi里没有Split这个函数(把一个字符串按照分隔符分开成一个数组)
我想写一个这样的函数，才不多写出来了但是发现Delphi返回一个动态数组时还要只定义类型
自定义一个类型都无所谓！我是想把所有的函数(自己写的)放在一个单元里面以后想把它做成
DLL文件，那样要自定一个类型，然后在用时就比较麻烦！
不知道大家有没有好的办法！用指针写可以吗！我对指针不太熟悉请大家帮忙写一个！
谢谢！我只有100分了全部给了

 

B

beckzd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #2

come to study

 

H

hnlygtjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #3

那你就定义一个可变类型的数组吧。
这样就可以接收任何类型的数据了。

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

function ExtractStrings(Separators, WhiteSpace: TSysCharSet
Content: PChar
Strings: TStrings): Integer;

 

你

你若有情

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

to hnlygtjj:
你是说自定义类型吗！我不想自定义类型！
自定义的类型以后在另外一个单元里调用太麻烦！你能给出一个例子吗？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

uses Classes;

var
str: string;
strList: TStringList;
i: Integer;
begin
str := 'hello,world,good,morning';
strList := TStringList.Create;

ExtractStrings([','], [], PChar(str), strList);

for i := 0 to strList.Count - 1 do
ShowMessage(strList);

strList.Free;
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #7

没有用到自定义的类型啊，全部都是 Delphi 自带的。

 

你

你若有情

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #8

多谢大家