救急啊，高手看看吧。200分(200分)

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #1

比如说，
在memo中的内容为： 0，12，7，13，46
15，2，4，4，1
这些数没有规则，但分别用逗号把他们隔开，怎么样才能取到这些数字啊？不是整行的取，是取到单个数，比如怎么取到第一行的12？？
拿位可以告诉我啊？最好具体点啊，写个例子啊，我是新手，在这里多谢了。

 

F

form2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #2

替换‘，’为#10

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1453971

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #4

ExtractStrings(Separators, WhiteSpace: TSysCharSet;
Content: PChar;
Strings: TStrings): Integer;
例:
ExtractStrings([','],[],PChar(fstring),fstrings);
一行行处理就可以了

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
s: TStringList;
i: integer;
temp,str: string;
begin
s := TStringList.Create;
if OpenDialog1.Execute then
s.LoadFromFile(OpenDialog1.FileName);
for i := 0 to s.Count - 1 do
begin
temp:=s;
while pos(',',temp)>0 do
begin
str:=copy(temp,1,Pos(',',temp)-1);
memo1.lines.add(str);
temp:=Copy(temp,Pos(',',temp)+1,Length(temp)-Pos(',',temp));
if Pos(',',temp)=0 then
memo1.lines.add(temp);
end;
end;
end;
data.txt:
0,12,7,13,46
15,2,4,4,1