Skip to content
Permalink
Browse files

Add some debug log output to TMySQLConnection.GetTableKeys for debugg…

…ing #856
  • Loading branch information
ansgarbecker committed Jan 21, 2020
1 parent c76695c commit 638f09310501467ce5d856c90c9b5dc062ac9fe2
Showing with 1 addition and 0 deletions.
  1. +1 −0 source/dbconnection.pas
@@ -4810,6 +4810,7 @@ function TMySQLConnection.GetTableKeys(Table: TDBObject): TTableKeyList;
NewKey := TTableKey.Create(Self);
Result.Add(NewKey);
NewKey.Name := KeyQuery.Col('Key_name');
Log(lcDebug, 'NewKey.Name="'+NewKey.Name+'"');
NewKey.OldName := NewKey.Name;
if NewKey.Name.ToLower = 'primary' then
NewKey.IndexType := 'PRIMARY'

0 comments on commit 638f093

Please sign in to comment.
You can’t perform that action at this time.