Forum: Klatsch und Tratsch
by Uwe Raabe,
5. Mär 2019
if (not Data.FDFix.Active) then
begin
Data.FDFix.Active := False;
end;
Wer weiß denn schon, ob not True auch wirklich gleich False ist? Der Code ist vermutlich schon für den Einsatz auf einem Quanten-Computer vorbereitet. (Schönen Gruß von Erwin Schrödinger)
Forum: Klatsch und Tratsch
by Uwe Raabe,
26. Jan 2014
Die Zahlen 1E-19, 1E-15 und 1E-7 geben genau den Wert eines Extended, Double oder Single an, der, wenn man ihn von dem Wert 1.0 abzieht, noch ein von 1.0 unterscheidbares Ergebnis liefert. Insofern korrespondieren die Zahlen 19, 15 und 7 mit der Angabe der signifikanten Stellen für die drei Float-Typen in der Delphi Hilfe (abgesehen von dem einem Tippfehler bei Extended 32-Bit, da muss es 19-20...
Forum: Klatsch und Tratsch
by Uwe Raabe,
27. Sep 2012
Der ist auch gut:
{ TODO : Was soll denn das hier? }
if MP.AktToolRec.Kardanik and (MP.AktToolRec.ToolClass = cToolSaege) then
B := Abs(MP.AktToolRec.Durchmesser)
else
B := Abs(MP.AktToolRec.Durchmesser);
Forum: Klatsch und Tratsch
by Uwe Raabe,
27. Sep 2012
{ Nach unserer Annahme sollten nun SourceParent und TargetParent auf
denselben Pfad verweisen. }
{ TODO : Mangels besserer Alternativen machen wir es im anderen Fall genauso. }
if true {SameFileName(SourceParent, TargetParent)} then begin