这个问题怎么解决呀，谁有能力帮助我(130分)

K

koolwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #1

这是我仅有的130分，我全部付上：
这是一个字符串，是关于计算公式，(‘ a + b - * c/ ’)，怎么样才能编写程序，使它有
报错(-*不能在一起)的功能。

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #2

procedure extChk(S:string);
var
i:integer;
begin
for i:=1 to length(s) do
case ord(s) of
42:....;
43:....;
45: if (ord(S[i+1])=42) or (ord(S[i+1])=47) then
ShowMessage(Format('%s和%s不能在一起',[S,S[i+1]]));
47:....;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
extChk('-*') ;
end;

 

K

koolwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

我很感激小雨哥，给您加100分,小雨哥,您好，你知道如果++或者--或者**在一起的时候怎么报错呀