ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

22.12.2009, 02:55
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
Провел на форуме: 104236
Репутация:
6
|
|
та вариантов куча,нужно просто задать такое условие что бы не выходило сразу и все,а если есть еще какое то ,при котором прога заканчивает цыкл,как вариант можно поставить условие что при таком разкладе его пропускать - "continue".Но опять таки,знать бы конкретно что ты хочешь,было бы легче ответить на вопрос...
|
|
|

22.12.2009, 10:42
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме: 3288241
Репутация:
3349
|
|
Код:
repeat
if (условие) then break;
until false;
|
|
|

22.12.2009, 11:19
|
|
Познающий
Регистрация: 22.11.2009
Сообщений: 53
Провел на форуме: 33126
Репутация:
0
|
|
дана функция на определенном интервале с определенным шагом.Нужно вычислить значение функции,вычисления надо закончить когда |Ak|<e.Но нужно это условие сделать сложным,то есть цикл не завершаться после первого круга даже если будет выполнено первое условие
|
|
|

22.12.2009, 11:50
|
|
Познающий
Регистрация: 22.11.2009
Сообщений: 53
Провел на форуме: 33126
Репутация:
0
|
|
У меня код такой: q:=1; repeat q:=q+1; until (abs(Ak)<e) and (а вот тут какое условие задать для q я хз).Сори что так пишу,я с телефона 
|
|
|

22.12.2009, 17:56
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме: 638378
Репутация:
41
|
|
Сообщение от qwert135
Всем привет.У меня такой вопрос.Какое условие надо задать чтобы цикл repeat/until выполнялся более одного раза,то есть цикл может закончится как минимум на втором круге.Язык паскаль.Заранее спасибо 
Код:
k:=0;
repeat
k:=k+1;
<твой код>;
until (k>1) and (<твое другое условие>);
|
|
|

22.12.2009, 23:16
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме: 469345
Репутация:
51
|
|
Проблема возникла такая:
Существует БД Access, связанная с проектом в Delphi..в БД, значит, у одного из элементов стоит тип данных: Дата/время..в то же время в проекте работает всё на "ура", но в Edit, который связан с этим элементом в БД, можно вводить только числовое значение - дата/время..
Собственно что нужно. А нужно сделать так, чтобы в этот же Edit можно было вводить текстовую инфу и чтоб она так же заносилась в БД.
В самой базе уже пробовал менять тип данных, но при компиляции выводится ошибка и ругается именно на тип...
|
|
|

23.12.2009, 02:36
|
|
Познающий
Регистрация: 09.08.2009
Сообщений: 39
Провел на форуме: 298385
Репутация:
75
|
|
Я уже спрашивал дважды... меня проигнорили... хм.... рискну еще раз!
Как на инди хттп сервере реализовать поддержку пхп???
помогите кто чем может... не проходите мимо! я вам, блин, хоть станцую... стоя раком на голове....
|
|
|

23.12.2009, 03:09
|
|
Новичок
Регистрация: 26.11.2009
Сообщений: 20
Провел на форуме: 88440
Репутация:
60
|
|
Сообщение от mr_walker
Я уже спрашивал дважды... меня проигнорили... хм.... рискну еще раз!
Как на инди хттп сервере реализовать поддержку пхп???
помогите кто чем может... не проходите мимо! я вам, блин, хоть станцую... стоя раком на голове....
У компонента idHTTPServer имеется процедура обработки GET запросов - OnCommandGet. В ней есть структура ARequestInfo: TIdHTTPRequestInfo и AResponseInfo: TIdHTTPResponseInfo соответственно. Заполняются надлежащим образом, типа :
ARequestInfo.Host = '127.0.0.1:5555'
ARequestInfo.Document = '/index.php'
...
AResponseInfo.ContentText := 'ok';
AResponseInfo.WriteContent;
p.s : Каков вопрос - таков ответ! 
|
|
|

23.12.2009, 06:52
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме: 1249808
Репутация:
149
|
|
SHAXID в
dt:TdateTime;
...
dt:=strtodate(edit1.text);
...
dt уже заносишь в базу, вообще посмотри функции пераобразования типов в справочнике делфи.
|
|
|

23.12.2009, 19:17
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме: 469345
Репутация:
51
|
|
Сообщение от RumShun
SHAXID в
dt:TdateTime;
...
dt:=strtodate(edit1.text);
...
dt уже заносишь в базу, вообще посмотри функции пераобразования типов в справочнике делфи.
бле, что-то не до конца недопонял..можно, плиз, поподробнее описать?)
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|