memo里的判断问题！！！！！！！！！！！！！！！！！！！(20分)

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #1

--------------------------------------------------------------------------------
memo里的每行数据都是由数字+字母+汉字组成，比如：111aaa红色，112aaa黑色。
现在要对每一行数据判断，是否有红字，有的话把数字去掉（aaa红色）写入数据库，并在某一字段下输入y，如果有黑字也是去掉数字（112aaa黑色）写入数据库，并在某一字段下输入n，该怎么实现？

 

D

Door2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

for i:=0 to memo1.line.count-1 do
if pos ('红色',memo1.lines) then
数据库输入 RIGHTstr(memo1.lines,汉字+字母的长度)，再写入Y

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #3

我试了不行啊

 

L

libra_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #4

for i:=0 to memo1.line.count-1 do
begin
n := Pos('红',Memo1.lines);
if n > 0 then
去掉数字并编辑数据表记录.
end;

 

薛

薛獅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #5

var
i:Integer;
begin
for i:=0 to memo1.lines.count-1 do
if (pos('红',memo1.lines)>0) then
begin
//你想怎么处理？
end;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #6

根据条件进行判断。
如果有“红色”、“黑色”
判断每个字符，如果是数字删除它。

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

十分感谢！ 判断输入已解决，可怎么去掉数字呢？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

循环
if not(str in ['0'..'9'] then
停止，
用delete函数删除i前的字符

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #9

能说的详细点吗？del函数怎么删字符啊？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #10

看看帮助比老问人更能提高自己。

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str: string;
begin
str := '111aaa红色;
for i := 1 to Length(str) do
if not(str in ['0'..'9']) then
break;
delete(str,1,i-1);
showmessage(str);
end;

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #11

谢谢

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #12

多人接受答案了。