急救，我就20分了，全给了，如何控制一串字符不让他显示0－9 10个数字？(20分)

菜

菜鸟编程

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #1

急救，我就20分了，全给了，如何控制一串字符不让他显示0－9 10个数字？

 

H

hongxinyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #2

Function get_str(ss:string):string;
var s:string;
i:integer;
begin
s:='';
for i:=1 to length(ss) do
if not (ss in ['0'..'9']) then
s:=s+ss;
result:=s;
End;

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #3

type
Tkeyword=set of char;
var
keyword : Tkeyword;
i:integer;
A:string;
begin
A:='abc78y9e4';
A:=Edit1.Text;
keyword:=['0','1','2','3','4','5','6','7','8','9'];
for i:=1 to Length(A) do
if A in Keyword then A:=char(0);
Edit1.Text:=A;
end;

 

菜

菜鸟编程

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #4

错了，错了，是一串字符，如果有0-9这10 个数字时报错！

 

X

XWHope

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #5

if (ss in ['0'..'9']) then
或者
if A in Keyword then 报错不就行了？
要不用pos

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #6

那一样的呀
type
Tkeyword=set of char;
var
keyword : Tkeyword;
i:integer;
A:string;
begin
A:='abc78y9e4';
A:=Edit1.Text;
keyword:=['0','1','2','3','4','5','6','7','8','9'];
for i:=1 to Length(A) do
if A in Keyword then //这个地方就是在判断有没有0-9这10 个数字
A:=char(0);
Edit1.Text:=A;
end;

 

李

李张柏芝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #7

Function strOK(ss:string):boolean;
var
i:integer;
begin
result=true;
for i:=1 to length(ss) do
if (ss in ['0'..'9']) then
begin
result=false;
exit;
end;
End;

 

X

xuhao1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #8

Function DelNum(str:string):string;
var i:integer;
begin
for i:=length(str) downto 1 do
if str in ['0'..'9']) then
Delete(str, i,1);
result:=str;
End

 

X

XWHope

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #9

const
aa : Array[0..9] of char=('0','1','2','3','4','5','6','7','8','9');

for i:=low(aa) to high(aa) do
if pos(aa[ii],str)>0 then
begin
showmessage('字符串中有数字');
break;
end;

 

菜

菜鸟编程

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-09

• #10

太感谢大家了，我会了，实现了可惜分太少了，表示表示心意吧