|
bsp; end; if s_characterlast=''''+'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''-'''';
i:='''''''';
end; if s_characterlast=''''-'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''-'''';
i:='''''''';
end; if s_characterlast=''''/'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''-'''';
i:='''''''';
end;
end
//**************//
else
begin
s_characterlast:=''''-'''';
s_number:=edit1.Text;
i:=''''432423'''';
end;
j:=''''3432'''';
end; procedure TForm1.Button14Click(Sender: TObject);
begin
s_type:=''''0'''';
if s='''''''' then application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if i<>'''''''' then
begin
if s_characterlast=''''X'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''X'''';
i:='''''''';
end; if s_characterlast=''''+'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''X'''';
i:='''''''';
end; if s_characterlast=''''-'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''X'''';
i:='''''''';
end; if s_characterlast=''''/'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''X'''';
i:='''''''';
end;
end
//**************//
else
begin
s_characterlast:=''''X'''';
s_number:=edit1.Text;
i:=''''34342'''';
end;
j:=''''3432'''';
end; procedure TForm1.Button15Click(Sender: TObject);
begin
s_type:=''''0'''';
if s='''''''' then
application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if i<>'''''''' then
begin
if s_characterlast=''''X'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) * strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end; if s_characterlast=''''+'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) + strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end; if s_characterlast=''''-'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) - strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end; if s_characterlast=''''/'''' then
begin
edit1.Text:=floattostr(strtofloat(s_number) / strtofloat(edit1.Text ));
s_number:=edit1.text;
s_characterlast:=''''/'''';
i:='''''''';
end;
end
//**************//
else
begin
s_characterlast:=''''/'''';
s_number:=edit1.Text;
i:=''''3432'''';
end;
j:=''''3432'''';
end; procedure TForm1.Button17Click(Sender: TObject);
begin
close;
end; procedure TForm1.Button16Click(Sender: TObject);
begin
if s_type=''''1'''' then
if (edit1.Text='''''''') then
begin
edit1.Text:=edit1.Text+''''0.'''';
s:=''''123'''';
j:=''''''''; end
else
begin
edit1.Text:=edit1.Text+''''.'''';
s:=''''123''''; end
else begin
if (j<>'''''''') then
begin
edit1.text:='''''''';
edit1.Text:=edit1.Text+''''0.'''';
s_type:=''''1'''';
j:='''''''';
end else
begin
edit1.text:='''''''';
edit1.text:=edit1.Text+''''.'''';
s_type:=''''1'''';
end;
end;
end; procedure TForm1.Button11Click(Sender: TObject);
begin
//=======================================//
s_type:=''''0'''';
if s='''''''' then application.MessageBox(''''请先输入数字'''',''''提示:'''',0)
else
if s_characte 上一页 [1] [2] [3] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
