24.09.2013, 13:01
|
 |
Местный
|
|
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
|
|
Цитата:
|
Сообщение от xdessx
Код:
...
if (a = 1) then
Label1.Caption := IntToStr(gorod2 - gorod1);
if (a = 2) then
Label1.Caption := IntToStr(gorod3 - gorod2);
if (a = 3) then
Label1.Caption := IntToStr(gorod4 - gorod3);
Ну дальше сами... |
Я надеюсь это шутка. |