Fix ALTER code for modified index names, and added + deleted indexes. Fixes issue #1533.

This commit is contained in:
Ansgar Becker
2009-12-15 00:25:46 +00:00
parent 0d81ddde51
commit 03d7052d78
2 changed files with 12 additions and 5 deletions

View File

@ -3103,6 +3103,7 @@ begin
Key := TTableKey.Create;
Keys.Add(Key);
Key.Name := rx.Match[4];
Key.OldName := Key.Name;
Key.IndexType := rx.Match[2];
if Key.Name = '' then Key.Name := rx.Match[2]; // PRIMARY
if Key.IndexType = '' then Key.IndexType := 'KEY'; // KEY