From e42cb467fca452d30577af02488b6cf23d46195e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 14 Apr 2013 05:21:04 +0000
Subject: [PATCH] Fix wrong offset in db.table string when checking for foreign
 key match. Fixes issue #3160.

---
 source/table_editor.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/table_editor.pas b/source/table_editor.pas
index c3616e85..df17ecbb 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -2227,8 +2227,8 @@ begin
         RefTable := Key.ReferenceTable;
         i := Pos('.', RefTable);
         if i > 0 then begin
-          RefDatabase := Copy(RefTable, 1, i);
-          RefTable := Copy(RefTable, i, MaxInt);
+          RefDatabase := Copy(RefTable, 1, i-1);
+          RefTable := Copy(RefTable, i+1, MaxInt);
         end;
         RefCreateCode := DBObject.Connection.GetCreateCode(RefDatabase, RefTable, lntTable);
         RefColumns := TTableColumnList.Create(True);