ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
13.04.2010, 11:44
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
logger, ты напиши конкретно что ты хочешь? Делай все или через Idhttp или веббраузер.
|
|
|
14.04.2010, 01:22
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Есть ли в паскале директивы, отключающие режим проверки совместимости типов?
Проблема в следующем:
поле edit - Vvod.Text, в него вводится информация, по щелчку происходит проверка:
if strtofloat(Vvod.Text)>80 ... если в поле был введен текст появляется ошибка
"Текст который был в Vvod.Text" is not a valid floating point value.
Нужно убрать отображение ошибки. |
|
|
|
14.04.2010, 01:25
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Syntaxys
Есть ли в паскале директивы, отключающие режим проверки совместимости типов?
Проблема в следующем:
поле edit - Vvod.Text, в него вводится информация, по щелчку происходит проверка:
if strtofloat(Vvod.Text)>80 ... если в поле был введен текст появляется ошибка
Нужно убрать отображение ошибки.
а зачем тебе убирать ошибку, если можно запретить ввод букв и символов?!?!?
|
|
|
|
14.04.2010, 03:12
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Вот так думаю решить
Код:
procedure TForm1.Edit1.KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9':;
else Key:=Chr(0); {запрещенные символы не отображать}
end;
Рад буду увидеть способы проще если они есть. |
|
|
|
14.04.2010, 03:17
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вот это в OnKeyPress() Edit'a
PHP код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var m: set of char;
begin
m := ['0'..'9'];
if ord(key) = 13 then edit2.SetFocus;
if not (key in m) then key := chr(0);
end;
или вот это в OnShow() формы
PHP код:
procedure TForm1.FormShow(Sender: TObject);
var oldlong: integer;
begin
oldlong := GetWindowLongA(edit1.Handle, GWL_STYLE);
SetWindowLongA(edit1.Handle, GWL_STYLE, oldlong or ES_NUMBER);
end;
суть будет одна и та же! пользуйся |
|
|
|
14.04.2010, 18:45
|
|
Познающий
Регистрация: 26.12.2007
Сообщений: 34
Провел на форуме:
150392
Репутация:
8
|
|
Как использовать один и тот-же класс TidHTTP в 2 функциях? То-есть чтобы куки были одинаковые что в 1 функции, что в 2?
|
|
|
|
14.04.2010, 21:01
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Объявить его глобально, или объявить глобальным куки менеджер а в функциях просто привязыват его к идхттп
|
|
|
|
14.04.2010, 21:34
|
|
Постоянный
Регистрация: 13.02.2008
Сообщений: 505
Провел на форуме:
2916750
Репутация:
277
|
|
Код:
Задан текстовый файл, содержащий фрагмент программы на Object Pascal. Найти все статические методы и поместить их в файл, состоящий из записей следующей структуры: имя метода – атрибут доступа( public, protected или private) – класс. Файл должен быть отсортирован по именам методов.
понять не могу
Найти все статические методы и поместить их в файл, состоящий из записей следующей структуры: имя метода – атрибут доступа( public, protected или private) – класс.
|
|
|
|
15.04.2010, 01:41
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
program test;
var u:integer;
begin
procedure zzz(a:integer);
begin
a:=5;
end;
end.
Гул говорит всё норм 
|
|
|
|
15.04.2010, 01:47
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
procedure zzz(var a:integer);
begin
a:=5;
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид