ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
01.03.2009, 21:34
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Ребят спасибо , сейчас буду разбираться!
Человек просил на Паскале, а не в делфи
Я уж думал никто не заметил этих слов)))
repeat readln(mystr); Val(mystr, num_int, errorflag); if errorflag = 0 then writeln('not a number'); until (errorflag <> 0);
Попробовал сделать , этот код выводит что не число если вводишь число , и только 2 раз можно сделать ввод кода, потом вылетает(((
Можешь написать пожалуйста код маленькой проги , которая будет проверять является ли введёная строка цифрами или буквами, и если не сложно мож ещё написать код функции для использования её в программах. Хотелось бы так что пишеться name_of_function(name_of_x);
имя функции , а в ней имя переменной которой нужно считать. ТОесть эта функция должна заменять стандартный read но с проверкой! Если от меня чтото понадоиться чем смогу помогу, заранее благодарен!
Последний раз редактировалось Djezul; 01.03.2009 в 21:52..
|
|
|
01.03.2009, 21:38
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
|
|
|
|
01.03.2009, 22:04
|
|
Banned
Регистрация: 26.01.2009
Сообщений: 16
Провел на форуме:
1639681
Репутация:
14
|
|
На форме есть компонент webbrowser1.
Я допустим с помощью него перешел на страницу1, а потом с неё же перешел по ссылкам на странице1.Вот мне нужно узнать на каком URL адресе сейчас находится webbrowser1?
|
|
|
|
01.03.2009, 22:21
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Сообщение от Djezul
Можешь написать пожалуйста код маленькой проги , которая будет проверять является ли введёная строка цифрами или буквами...
Ну тогда так..Дальше уж реализуешь, думаю 
Код:
program tmp;
var
a: integer;
begin
write('Enter a number: ');
{$I-}
readln(a);
{$I+}
if (ioresult <> 0) then begin
writeln('Its not integer');
readln(a);
end else begin
write('All rigth, its integer');
readln(a);
end;
end.
|
|
|
|
01.03.2009, 22:27
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
WebBrowser1.LocationURL
|
|
|
|
01.03.2009, 22:32
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Спасибо огромное , всё работает)) Только незнаю пока зачем нужно {$I-} и {$I+}
С этим ioresult , разберусь )) Короч +5 тебе )
|
|
|
|
01.03.2009, 22:35
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Djezul
{$I-} выключает отображение ошибок
{$I+} включает
|
|
|
|
01.03.2009, 22:37
|
|
Участник форума
Регистрация: 19.08.2005
Сообщений: 132
Провел на форуме:
1387194
Репутация:
121
|
|
s.p.a.m
Код:
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
showmessage(URL);
end;
|
|
|
|
01.03.2009, 23:03
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
ZET36 , спасибо!
|
|
|
|
02.03.2009, 03:29
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Как получить список дисков в системе + полную инфу про них, файловая система, тип диска(жесткий, флешка, дисковод, сидиром) размер, метка и т.д....
?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
