刚接触编程遇到的问题，请各位高抬贵手！(50分)

菜

菜鸟一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

在一个Edit.Text存盘的时候，如果要控制字符串里有且只有一个'@'且它的前面和后面都不能为空，
这代码应该怎么写？这应该是个很容易的问题，但对于我来说却百思不得其解！

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

用pos函数亚，看看帮助就知道了。这样的问题多看看help对自己很有帮助的

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #3

pos('@',源字符串)>0 and pos('@',源字符串)<length(源字符串) and
(StringReplace(源字符串,'@','',rfReplaceAll)=length(源字符串)-1)

 

菜

菜鸟一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #4

up 我只会用pos函数查找有没有'@'，但这是不够的，其他条件我不知道该怎么写！
我写的是 if pos('@',Edit.Text) =0 then
Abort;

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #5

全局变量初始化： c:=0;
if c=0 then
begin
if pos('@','字符串') <> 0 then
c:=1;
end;
if c=1 then
your do

前后去空格的函数是trim(字符串)

 

吴

吴明桓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #6

用trim()与length(),lefttrim(),righttrim()函数
判断'@'在字符中的位置，如果@是第一个字符并且字符的长度>=3
那么就可以判断

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #7

s_tmp:=trim(edit1.text);
if pos('@',s_tmp)>0 then //判断有否@号
begin
if pos('@',s_tmp)<>1 and pos('@',s_Tmp)<>length(s_tmp) then //判断是否不在头尾部
begin
delete(s_tme,1,pos('@',s_tmp));将第一个@删除。
if pos('@',s_tmp)<=0 then //判断是否还有@号
showmessage('It''s Ok!');
end;
end;

 

菜

菜鸟一号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-11

• #8

接受答案了.