![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 21.12.2010
Сообщений: 224
|
![]()
edit1.Text:= idhttp1.Get('http://napricole.dax.ru/ip.php');
label1.Caption:= StringReplace(edit1.Text,'.','+',[rfReplaceAll, rfIgnoreCase]); label1.Caption:= strtoint(label1.Caption); хочу сложить все числа ип адреса. Но Код:
Код:
|
![]() |
![]() |
![]() |
#2 |
Сливочное масло
Участник клуба
Регистрация: 01.01.2011
Сообщений: 1,149
|
![]()
Значит в label1.Caption явное "не число".
Поставь брекпоинт и погляди что присваивается. адд: ступил. label1.Caption:= strtoint(label1.Caption); - это бред. Caption это String. Надо писать тогда label1.Caption:= label1.Caption; - но это ещё бредовей ) адд: тебе надо руками разделить АПИ на числа и вручную сложить.
Сливочное масло Valio - компиляция как по маслу
Последний раз редактировалось Valio; 15.05.2011 в 15:41. |
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,543
|
![]()
label1.Caption:= StringReplace(edit1.Text,'.','+',[rfReplaceAll, rfIgnoreCase]);
Delphi не является интерпретирующим языком. программа без дополнительный усилий с о стороны программиста) не может выполнять никакие математические действия записанные в строке label1.Caption:= StringReplace(edit1.Text,'.','+',[rfReplaceAll, rfIgnoreCase]); это будет строка 198+132+1+1 и для получения его значения надо будет использовать сторонний (можно собственный) парсер арифметических выражений.
программа — запись алгоритма на языке понятном транслятору
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Написать программу, которая за меньшее число ходов отгадывает загаданное число | gomz007 | Помощь студентам | 16 | 08.11.2009 12:57 |
Вывести число, предшествующее первому отрицательному и число, следующее за последним отрицательным | Rid | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 22.12.2008 16:50 |
Переработка Diablo Hellfire | Mordor_XP | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 03.09.2008 19:22 |
Найти и вывести все слова,у котоpых число гласных букв пpевышает число согласных. | Briz | Помощь студентам | 2 | 11.05.2008 00:56 |
Ввести число N и определить делится ли оно без остатка на число M (VBA) | Ivanich | Microsoft Office Excel | 7 | 24.04.2008 19:43 |