Понедельник, 20 Апреля 2015 г. 18:36
+ в цитатник
Программирую на Delphi XE6, вопрос по настройки debug – ра
procedure TForm1.FormShow(Sender: TObject);
var
d: Double;
begin
try
d := 100/0;
ShowMessage('d = ' + FloatToStr(d));
Edit1.Text := 'd = ' + FloatToStr(d);
except
on E: Exception do begin
ShowMessage(E.Message);
end;
end;
end;
Выдает сообщение d = INF, как? ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82930
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
