Дана матрица А (m,n), элементы которой целые числа. Напишите программу, которая находит и выводит на экран наименьший элемент матрицы, а так же номер строки и номер столбца, соответствующие этому элементу.

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

На форме есть PageControl, на одной из вкладок находятся четыре Edit, на самой форме три кнопки.
Если перемещаться по Edit клавишей Tab, то после четвертого начинает шарится по кнопкам на самой форме, пройдя их все выделяет заголовок вкладки и только потом возвращается в первый Edit.
Как сделать так чтоб после четвертого возвращался сразу в первый Edit? И еще лучше, чтоб перемещение было только между четырмя эдитами. Можно так сделать?

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

Есть IP Камера Кено, которая кроме RTSP ничего не умеет, т.е. ни каких тебе http запросов для получение скрина (web интерфейс есть, но он в моем случае не нужен, так как нужно из сторонней программы получить снимок).

Вот так с vlc плейера можно смотреть поток:

rtps://192.168.0.180:554/ch0.264

Подскажите как из delphi можно подключится к этому потоку и получить из него всего 1 снимок.

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

Использую sqlite3.pas для работы с БД sqlite.
Возник вопрос, как корректно обрабатывать случаи, когда в таблице не содержится требуемых данных?

Если в базе нет логина test1, то при попытке выполнения запроса получаю ошибку «table is at end of file». Как такую ошибку обработать? Не выполнять же в начале запрос на подсчет количества записей с таким логином, и если > 0 то выполнить запрос …

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

Дано расписание движения автобусов. Всего 18 пригородных автобусов отправляются со станции. Определить количество автобусов, отправляющихся со станции в период времени с 17.00 до 20.30. (Время отправления задается одномерным массивом.)
Сформировать пользовательский тип данных, перечислимый, в котором указаны все возможные значения времени отправления: 00.00, 00.30, 01.00, 01.30…23.00, 23.30.

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

Как распечатать текст из Memo?

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

Как записать данное выражение в Delphi?
S=(-1)^n* ((x^2n+1)/(2n+1))

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

Я посылаю запросы 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 но как его применить не знаю.

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

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

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

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

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

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

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