mORMot Open Source

Function DelPoint(ID: Int64): boolean;
Begin
  Result := false;
  If Assigned(MainForm.Database) Then
    Result := MainForm.Database.Delete(TSQLPoint, ID);
End;

Function AddLink(start_point_id: Integer = 0; end_point_id: Integer = 0; one_way: Integer = 0; temp_link: Integer = 0): Boolean;
Var
  Rec: TSQLLink;
Begin
  Result := False;
  If Assigned(MainForm.Database) Then
  Begin
    Rec := TSQLLink.Create;
    Try
      Rec.start_point_id := start_point_id;
      Rec.end_point_id := end_point_id;
      Rec.one_way := one_way;
      Rec.temp_link := temp_link;
      If MainForm.Database.Add(Rec, {true} false) = 0 Then //ofc here i have error of DB is Busy
        Result := False
      Else
      Begin
        MainForm.AddLinkList(MainForm.SGLink, Rec);
      End;
    Finally
      FreeAndNil(Rec);
    End;
  End;
End;
//....
   rcPoint := TSQLPoint.CreateAndFillPrepare(Database, 'X >= ? AND X <= ? AND Y >= ? AND Y <= ?', [OnMap.X - 150, OnMap.X + 150, OnMap.Y - 150, OnMap.Y + 150]);
   If rcPoint.FillOne Then
   Begin
     AddLink(Bottom, rcPoint.ID);
  end;
  FreeAndNil(rcPoint);