Mercury13

В зависимости от того, какого происхождения числа, можно поступать так.

1. Работать с погрешностью. Например.

q := X1 / X2;
if abs(q - Round(q)) < 1e-5 then ...

Я в основном сейчас на «си с крестами» и непривычка не брать условие в скобки :)

2. Работать в рациональных числах.

type
  TRatio = record
    Num, Den : integer;
  end;

Думаю, сами сможете написать операции ±×/ и, если надо, сокращение.

3. Работать в фиксированной запятой — например, перевести рубли в копейки.

var
  X1 : integer = 100;
  X2 : integer = 20;

if X1 mod X2 = 0 then ...

4. Работать в десятичной длинной арифметике. Это уже совсем «большая пушка», и может быть что-то типа

type
  TDecFloat = record
    mantissa : uint64;  // например, от 1e17 до 1e18
    order : integer;
    sign : boolean;
  end;

Примерно так можно сделать калькулятор, работающий в десятичной системе и переводящий в extended и обратно, если, например, нужно взять синус. Погрешность перевода для трансцендентных функций, разумеется, будет, зато 0,2 в такой системе — это точное 0,2, и это важно для калькуляторов: он вычислит в точности то, что человек вычислит ручкой на бумаге.

ВНИМАНИЕ! Для методов 2,3,4 придётся переработать всю цепочку, через которую появляются 1 и 0,2. В float/double нет числа 0,2, и точка.

Можно, только синхронно. Используй TThread.Synchronize. Код пишется с листа, не уверен, что действующий.

procedure TMyThread.SyncCreateMemo;
begin
 Memo:=TMemo.Create(Form6);
  Memo.Parent:=Form6;
  Memo.Left:=50;
  Memo.Top:=50;
  Memo.Width:=250;
  Memo.Height:=100;
  Memo.Text:='Мама я родился!';
end;

procedure TMyThread.Execute;
begin
  Synchronize(SyncCreateMemo);
end;

Второй способ, более сложный и опасный — PostMessage. Здесь никаких задержек поток испытывать не будет. Но будьте осторожны — форма создаст компонент когда угодно и нельзя его заполнять сразу же.

procedure TForm6.WmCreateMemo; // message WM_CREATEMEMO = WM_USER + 1
begin
 Memo:=TMemo.Create(Form6);
  Memo.Parent:=Self;
  Memo.Left:=50;
  Memo.Top:=50;
  Memo.Width:=250;
  Memo.Height:=100;
  Memo.Text:='Мама я родился!';
end;

procedure TMyThread.Execute;
begin
  PostMessage(Form6.Handle, WM_CREATEMEMO, 0, 0);
end;

Заполнять наш редактор тоже можно путём PostMessage, но тут тоже будьте осторожны: сообщения-то выполнятся по порядку, но никто не знает, до окончания потока или нет. Бывает и такое, что два сообщения ушли в очередь, но ещё не обработались. В общем, будьте предельно осторожны с временем жизни объекта.

Попробую угадать задачу. Есть некое поле (назовём его UserData), но у нас-то пользовательские данные boolean!

Решение 1. Прямое преобразование, невзирая на несовместимости типов.

someObj.UserData := TObject(true);
someBool := boolean(someObj.UserData);

+ Эффективнее всех.
− Запрещено разыменовывать.

Решение 2. Создать некий объект DummyObject. Обозначить nil=false, <>nil = true.

someObj.UserData := dummyObject;
someBool := (someObj.UserData <> nil);

initialization
  dummyObject := TObject.Create;
finalization
  dummyObject.Free;
end.

+ Достаточно эффективно, можно разыменовывать.
− Если в классе есть неотключаемое автоуничтожение UserData — облом!

Решение 3. Создать класс TBoolObject.

TBoolObject = class
public
  Value : boolean;
  // конструкторы опущу, деструктор не нужен
end.

someObj.UserData := TBoolObject(true);
someBool := (someObj.UserData as TBoolObject).Value;

+ Работает, когда в классе есть автоуничтожение UserData.
− Иначе — овчина не стоит выделки, тогда нам эти объекты придётся уничтожать самим.

Если же у вас тут экономия памяти и надо в одной памяти держать object или boolean, работает решение 4.

TObjBool = record
case integer of
0 : ( asObj : TObject );
1 : ( asBool : boolean );
end;

+ Очень эффективно.
− Программист сам должен следить за тем, что там: объект или буль.

1. У вас неправильная формула корней.
2. Хотелось бы узнать, чему равны a, b, c.
3. Зачем вы округляете?
4. Собственно причина ошибки. Думаю, у вас отрицательное d, sqrt(d) = NaN (не-число), и ваша реализация Паскаля вот так поступает, когда нужно округлить NaN.