Cosmetic

comparison.pas

@@ -510,7 +510,7 @@ begin
         // Default value, if any
         if DefaultValue<>'' then
           Line:= Line + ' ' + DefaultValue;
-        //todo: domain comparison: verify if this collate/constraint works
+
         // Check constraint, if any:
         if CheckConstraint <> '' then
           Line:= Line + ' ' + CheckConstraint;

main.pas

@@ -3086,7 +3086,7 @@ begin
 end;
 
 (***************  View Table Fields/ Fields Management  ***************)
-{ todo: should be moved to tablemanage.pas if possible; even better split out
+{ todo: getting table field data should be moved to tablemanage.pas if possible; even better split out
 between non-GUI query part and GUI updater part}
 procedure TfmMain.ViewTableFields(ATableName: string; dbIndex: Integer;
   AStringGrid: TStringGrid);