[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

SHAHID то что компилятор не может создать файл, например если проект запущен с сети или еще какого то места где нет прав на запись

 

вопрос - как проще сделать в потоке application.processmesseges длительностью (скажем) 10 секунд?

слип не предлагать


ответ:

Code:

uses SysUtils,Dateutils;

var
start_time:Tdatetime;

{10 секунд обрабатываем сообщения}
start_time:=now;
while SecondSpan(now, start_time)<10 do application.ProcessMessages;

 

Дык сохрани проект и перезапусти Делфи...все заработает

 

Таймер...

Как на WinSock сделать сервер-клиент?

 

Есть интересная программка, называется DRKB Explorer. В ней база всяких статей по Delphi (не помню откада она их берет), вот. Там есть ответ подробный на твой вопрос.
P.S Полезная вообще это штука.

 

Книгу Михаила Фленова под названием "delphi глазами хакера" в руки (там очень хорошо описывается работа с winsock)

 

Вопрос волнующий мой мозг до глубины ... мне надо составить программу которая бы заменяла из Аbcda сделала AbcdA,
те 'a' стало 'A' ... или наоборот abcda .
Upcase не помогает... есть у кого идеи?
Загуглил нашёл такую функцию, но адин х не пашет.... :
function downcase(symbol:char):char;
begin
case symbol of
'A'..'Z','А'..'П':downcase:=chr(ord(symbol)+32);
'Р'..'Я':downcase:=chr(ord(symbol)+80);
else
downcase:=symbol;
end;

 

n1ghtstalker, есть ф-ии LowerCase и UpperCase (только для латиницы)

Code:

var s:string;
...
s:='Abcda';
s[length(s)]:=UpperCase(s)[length(s)];

 

Code:

function LCase(Symbol: Char): Char;
begin
  case Symbol of
    'А'..'Я', 'A'..'Z':
      Result := Chr(Ord(Symbol) + 32);
    'Ё':
      Result := 'ё';
  else
    Result := Symbol;
  end;
end;


function UCase(Symbol: Char): Char;
begin
  case Symbol of
    'а'..'я', 'a'..'z':
      Result := Chr(Ord(Symbol) - 32);
    'ё':
      Result := 'Ё';
  else
    Result := Symbol;
  end;
end;

Функции для перевода символа из нижнего регистра в верхний и наоборот.

 

Для кириллицы, если не ошибаюсь AnsiUpperCase и соответственно AnsiLowerCase функции используются

 

Lover?? любовник???

 

Всем привет.У меня такой вопрос.Какое условие надо задать чтобы цикл repeat/until выполнялся более одного раза,то есть цикл может закончится как минимум на втором круге.Язык паскаль.Заранее спасибо

 

та вариантов куча,нужно просто задать такое условие что бы не выходило сразу и все,а если есть еще какое то ,при котором прога заканчивает цыкл,как вариант можно поставить условие что при таком разкладе его пропускать - "continue".Но опять таки,знать бы конкретно что ты хочешь,было бы легче ответить на вопрос...

 

Code:

repeat
 if (условие) then break;
until false;

 

дана функция на определенном интервале с определенным шагом.Нужно вычислить значение функции,вычисления надо закончить когда |Ak|<e.Но нужно это условие сделать сложным,то есть цикл не завершаться после первого круга даже если будет выполнено первое условие

 

У меня код такой: q:=1; repeat q:=q+1; until (abs(Ak)<e) and (а вот тут какое условие задать для q я хз).Сори что так пишу,я с телефона

 

Code:

k:=0;
repeat
  k:=k+1;
  <твой код>;
until (k>1) and (<твое другое условие>);
  

 

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

 

Я уже спрашивал дважды... меня проигнорили... хм.... рискну еще раз!
Как на инди хттп сервере реализовать поддержку пхп???
помогите кто чем может... не проходите мимо! я вам, блин, хоть станцую... стоя раком на голове....

 

У компонента 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 : Каков вопрос - таков ответ!