Я посылаю запросы php скрипту в таком виде:

LoginInfo:TStringList;

LoginInfo:=TStringList.Create;
LoginInfo.Add('login='+St_login);
LoginInfo.Add('passw='+St_pass);
str:=idhtp1.Post(server+'yyy.php',LoginInfo);

Если сервер не доступен вылетает ошибка.
Как правильно выловить ошибку?
Т.е. если ошибка есть то сделать то то, нету другое и не останавливало программу.

Знаю про IdHTTP1.ResponseCode но как его применить не знаю.

(читать всё…)

Последовательность чисел задаётся следующими формулами:
A1 = 3; A2 = 5; An = 2*Fn-1 + Fn-2
Найдите наименьшее целое n, при котором An будет больше одного миллиона.

(читать всё…)

Какая кодировка текста у редактора кода среды Borland Delphi 7?
И, если я установлю такую же кодировку в notepad++, то при вставке в него скопированного текста из редактора кода будут ли правильно отображаться русские символы ?

Если я открываю *.pas файл в notepad++, то русские символы распознаются правильно, но иногда бывает нужно прямое копирование из IDE в текстовый редактор; открытие *.pas в notepad++ — это уже обходной путь.

Можно ли как то обойтись без обходного пути ?

(читать всё…)

Помогите решить прогрессию на Паскале:

(читать всё…)

Нужно создать окно, которое будет сразу развернуто на весь экран. В CreateWindow указываю стиль — WS_OVERLAPPEDWINDOW or WS_VISIBLE or WS_MAXIMIZE, но окно создаётся обычным — на часть экрана с указанным размером. Приходят сообщения WM_RESIZE и WM_PAINT. В моём случае, происходит ресайз битмапа и его отрисовка.
Когда окно полностью отрисовалось и появилось на экране, приходится вызывать SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0), чтобы развернуть окно. Но тогда операции ресайза и отрисовки повторятся снова.
В результате, в два раза больше действий, чем нужно.
Как сделать, чтобы окно было развёрнуто сразу при создании, без вызова SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0)?

(читать всё…)

Вычитание. Получить правильную разность двух многозначных чисел (более 15 знаков).
В Турбо Паскаль, вычитать из строки строку, числа идут целые, первое число больше 2-го, буквы отсутствуют.

(читать всё…)

(читать всё…)

Как на компоненте TImage разместить изображение с указанием начальной позиции (x,y) отрисовки?

(читать всё…)

Вычислить расстояние между двумя точками с данными координатами (x1, y1) и (x2, y2).

(читать всё…)

Создать строку, которая состоит из первого и последнего символов данной строки.

(читать всё…)