Joblist - Aufgabenplaner

[himitsu]

Apropos doppelter Code.

Zitat:

Delphi-Quellcode:

if aClosedOnes then
begin
  SQLiteQuery1.ParamByName('flag').value := 0;
end
else
begin
  SQLiteQuery1.ParamByName('flag').value := 1;
end;

Das ist ja wie ein

Delphi-Quellcode:

if MyBoolean then
  Result := True
else
  Result := False;

In Delphi ist True als 1 definisert und False ist sowieso immer 0, darum ginge das hier.
SQLiteQuery1.ParamByName('flag').value := Ord(aClosedOnes);

Aber aus selbem Grund, warum ich ständig drarauf hinweise, daß man if MyBool = True then nicht machen sollte, da zwar die Konstante "True" = 1, aber der Zustand "True" <> 0 ist, wäre es so bestimmt sicherer,
SQLiteQuery1.ParamByName('flag').value := IfThen(aClosedOnes, 1, 0);
wenn man nicht sichestellen kann, was in der Variable drin steckt.


bzw.
WHERE flag = :flag; / SQLiteQuery1.ParamByName('flag').AsInteger := IfThen(aClosedOnes, 1, 0);
WHERE (flag <> 0) = :flag; / SQLiteQuery1.ParamByName('flag').AsBoolean := aClosedOnes;

[AlexII]

Gut, ich komme noch dazu... bin noch am Post #2

Habe das Problem so gelöst, aber die FK werden trotzdem gelöscht. Ich verstehe nicht wieso, ist doch alles richtig gemacht, zumindest beim DB Erstellen.

Delphi-Quellcode:

PRAGMA foreign_keys = ON;

CREATE TABLE [tbmain] (
  [id_tbmain] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, 
  [title] TEXT NOT NULL, 
  [start] DATETIME NOT NULL, 
  [ende] DATETIME, 
  [memo] TEXT, 
  [flag] INTEGER NOT NULL,
  [fk_category_id] INTEGER,
  [fk_processowner_id] INTEGER,
  [fk_priority_id] INTEGER,
  [fk_status_id] INTEGER NOT NULL,
  [fk_place_id] INTEGER,
  FOREIGN KEY ([fk_category_id]) REFERENCES [tbcategory]([id_tbcategory]) ON DELETE RESTRICT, 
  FOREIGN KEY ([fk_processowner_id]) REFERENCES [tbprocessowner]([id_tbprocessowner]) ON DELETE RESTRICT, 
  FOREIGN KEY ([fk_priority_id]) REFERENCES [tbpriority]([id_tbpriority]) ON DELETE RESTRICT, 
  FOREIGN KEY ([fk_status_id]) REFERENCES [tbstatus]([id_tbstatus]) ON DELETE RESTRICT, 
  FOREIGN KEY ([fk_place_id]) REFERENCES [tbplace]([id_tbplace]) ON DELETE RESTRICT)

[-=ZGD=-]

Zitat von himitsu:

Apropos doppelter Code.

Zitat:

Delphi-Quellcode:

if aClosedOnes then
begin
  SQLiteQuery1.ParamByName('flag').value := 0;
end
else
begin
  SQLiteQuery1.ParamByName('flag').value := 1;
end;

Das ist ja wie ein

Delphi-Quellcode:

if MyBoolean then
  Result := True
else
  Result := False;

In Delphi ist True als 1 definisert und False ist sowieso immer 0, darum ginge das hier.
SQLiteQuery1.ParamByName('flag').value := Ord(aClosedOnes);

Aber aus selbem Grund, warum ich ständig drarauf hinweise, daß man if MyBool = True then nicht machen sollte, da zwar die Konstante "True" = 1, aber der Zustand "True" <> 0 ist, wäre es so bestimmt sicherer,
SQLiteQuery1.ParamByName('flag').value := IfThen(aClosedOnes, 1, 0);
wenn man nicht sichestellen kann, was in der Variable drin steckt.


bzw.
WHERE flag = :flag; / SQLiteQuery1.ParamByName('flag').AsInteger := IfThen(aClosedOnes, 1, 0);
WHERE (flag <> 0) = :flag; / SQLiteQuery1.ParamByName('flag').AsBoolean := aClosedOnes;

Da hast du schon recht.

Ich persönlich mach das immer so wie von mir beschrieben, da oft bei der Entscheidung neuer/aktualister Datensatz noch einige andere Anweisungen/Callbacks/etc. folgten.

[-=ZGD=-]

Da fällt mir ein...war True in Delphi nicht -1 - irgendwann mal?

[AlexII]

Habe den Fehler aus Post #2 beseitigt... man war das eine Quälerei... Aber es läuft jetzt. Jetzt sind die nächsten Tipps dran.

[freak4fun]

Zitat von AlexII:

Habe den Fehler aus Post #2 beseitigt... man war das eine Quälerei... Aber es läuft jetzt. Jetzt sind die nächsten Tipps dran.

Super, weiter so!