一个字符串要取出其中的数字，怎么取(50分)

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #1

如果s := '?'#1#1#1#2' '可以用下面的方式
procedure TForm1.Button1Click(Sender: TObject);
var s, s1: string
i, J: integer;
begin
s := '?'#1#1#1#2' ';
for i := 1 to Length(s) do
begin
j := ord(s);
// showMessage(IntToStr(j));
if j < 9 then
s1 := s1 + IntToStr(j)
else
begin
if Length(s1)> 0 then
ShowMessage(s1);
s1 := '';
end;
end;
if Length(s1)> 0 then
ShowMessage(s1);
end;
可是如果s := '?'#256#489#1#2' '那怎么取阿

 

Y

yl0971

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #2

设个常量为"0123456789"
截取字符串得每一个字符,如果该字符在常量中,则将其取出.

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #3

但是s每次都是不一样的，

 

W

wangler

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #4

procedure TForm1.GetNumList(AStr: String
AList: TStrings);
var
i: Integer;
ANum: String
//解析出的数值字符串
begin
for i := 0 to Length(Astr) -1 do
begin
if AStr In ['0'..'9'] then //只能解析出自然数
ANum := ANum + AStr
else begin
if ANum <> '' then
begin
AList.Add(ANum);
ANum := '';
end;
end;
end;
end;

 

海

海无崖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #5

function GetNumFromString(s: String):string;
var
i: Integer;
begin
result='';
for i := 0 to Length(s) -1 do
begin
if s In ['0'..'9'] then
result := result + s
end;
end

已调试通过。

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #6

procedure TForm1.Button1Click(Sender: TObject);
var s, s1: string
i: integer;s2:char;
begin
s := edit1.text;
s1:='';
for i := 1 to Length(s) do
begin
s2:=s;
if s2 in ['0'..'9'] then
s1:=s1+s2;
end;
if s1<>'' then
ShowMessage(s1);
end;

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #7

如果是这样的S:='#134#1234'可以通过，可现在S:='?'#123#234' '

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #8

S:='?'#123#234' '
这个字符串是什么东西

 

J

jianguobu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #9

就算是S:='?'#123#234' '

海无崖的也可以通过!!

 

海

海无崖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #10

S:='?'#123#234' '
没有这种表示方法。

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #11

这是在调试的时候看到的，是串口发送过来的信息。

 

B

bjdribllec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #12

#123就是“左大括号” {

 

J

jianguobu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #13

晕:
S:='?'#123#234' '

应该是这样给值呀
S:='''+'?'+'''#123#234'''+' '+'''';

 

Y

yl0971

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #14

如果是#是有点问题,#如同c中得/,在截取时先将#去掉再截取试试.

 

Y

yl0971

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-09

• #15

不要将变量设为char设为byte试试.

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-12

• #16

麻烦各位高手，能否再帮忙解决一下

 

刘

刘麻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-12

• #17

用TStringList分割字符串的方法。。。。。举例
var MS:TStringList;
MS:=TStringList.Create;
MyStrList.Delimiter:='#'
//指定分隔符
MyStrList.DelimitedText:='...........';

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #18

多人接受答案了。