if s_characterlast=''''+'''' then
        begin
            edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text ));
            s_number:=edit1.text;
       end;

        if s_characterlast=''''-'''' then
       begin
            edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
            s_number:=edit1.text;
       end;

        if s_characterlast=''''/'''' then
         begin
             edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
             s_number:=edit1.text;
         end;
    end;
    j:=''''3432'''';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
j:='''''''';
s_type:=''''1'''';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  edit1.text:='''''''';
end;

end.

上一页  [1] [2] [3]