Давно уже пишу на Delphi, но до сих пор бывают открытия.
Код

var a,b:Word;  // или Integer
 begin
   b:=0;
   a:=1 div b;
// ........

нормально прокатывает в Delphi , а в Lazaus при запуске — аварийный выход, .. класс исключения «External: SIGFPE»

Правда, если в Delphi добавить после деления

Memo1.Lines.Add(IntToStr(a));

тоже будет ошибка при запуске.

В чем там разница? Пробовал {$Q+} или {$Q-} — ничего не меняется.

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

Есть главная страница с формой авторизации и стартом сессии index.php. Затем срабатывает файл auth.php с проверкой логина, пароля и т.д из БД и при удаче переход на страницу LkPage.php. Так вот, значение в сессии хранится на странице LkPage.php. А если перейти на страницу descriptionWorkout.php из хэдэра LkPage.php, то сессия обнуляется.

index.php

<?php 
if (!isset($_SESSION)) session_start ();
	//session_start();
	//include "auth.php";
print_r($_SESSION);
?>
...

LkPage.php

<?php
	if (!isset($_SESSION)) session_start ();
	var_dump($_SESSION);

	if (isset($_SESSION['id']) && $_SESSION['id'] === true) {
  		echo $_SESSION['id'];
	}

	echo $_SESSION['email'];
	echo $_SESSION['password'];
	echo $_SESSION['firstname'];
	echo $_SESSION['id'];

	print_r($_SESSION);
?>
...

descriptionWorkout.php

<?php
	if (!isset($_SESSION)) session_start ();
	//phpinfo();
	var_dump($_SESSION);
	/*if (isset($_SESSION['userid']) && $_SESSION['userid'] === true) {
  		echo $_SESSION['userid'];
	}*/
	if(isset($_SESSION['id']) && !empty($_SESSION['id'])){
		echo "yes";
	} else echo "string";

	echo $_SESSION['email'];
	echo $_SESSION['password'];
	echo $_SESSION['firstname'];
	echo $_SESSION['id'];

	print_r($_SESSION);
?>
...

auth.php

<?php
		$email = $_GET['emailA'];
        /*$password = md5($_GET['passwordA']);*/ //uncomment
        $password = $_GET['passwordA'];
        $status = "default";
        $status = $_GET['radio'];
...

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

Нужно посчитать количество букв в Memo. Я эти символы помечаю так:

bukv = [#65..#90,#97..#122,#188..#255,#165,#168,#170,#175,#179,#180,#184,#186];

Но русские буквы программа никак не хочет считать. С английскими проблем нет. Всё отлично работает. А вот русскими беда.
Пробовал разные варианты:

bukv = [(#65)..(#90),(#97)..(#122),'а'..'я','А'..'Я','ё','Ё'];

Не работает.

bukv = [(#65)..(#90),(#97)..(#122),'а'..'п', 'р'..'я', 'ё'];

Не работает.
Как я понял проблема в самом Delphi XE2. Но должен же быть способ как-то решить эту задачу.

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

В запросе «повторяющееся записи» необходимо подсчитать количество повторов построчно. В вычисляемом поле запроса пытаюсь использовать функцию DCount (если это конечно правильно, не получается с критерием). Подсчет должен идти по полю [Код] (переменная и фиксировано не напишешь). Хотелось бы чтоб получилось как на вложенном файле .jpg. Файл примера так же прилагается.

Ссылка на изображение

Database13.rar (36.4 Кб)

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

Есть задание написать программу, для подсчёта и проверки контрольной суммы, в тестовом файле по алгоритму :CRC16CCITT, именно по этому алгоритму и желательно без таблицы.
(читать всё…)

Наверно, можно сделать так, чтобы от систем авто получать данные на смартфон?
И можно в принципе добавить ПО в компьютер бортовой?

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

Передо мной встала задача сделать генератор звука, который бы генерировал два типа волн одновременно (синусоиду и прямоугольную), а также синтезировать их. Думаю насчет синтеза не проблема — просто главное чтобы амплитуда совпадала. А вот как генерировать звуковые волны и выводить их на динамики я не знаю.
(читать всё…)

Вопрос звучит так: как можно вернуть через аргумент функции адрес выделенной памяти malloc на массив указателей типа char.

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

Как на Python удалить все комментарии в JavaScript-файле?

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

Возникла потребность изменить на форме VBA кучу label-ов. Есть текст «руб.» нужно — «грн.»
Переименовывать каждую отдельно конечно можно, но муторно, да и ненадежно, можно пропустить, а их, надписей таких, много.
В коде всё это делается просто, а вот на форме — не знаю как.

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