opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

TStringList.CommaText seems to interprete spaces also as comma. Messes foreign key columns if one of them has spaces. Fix that by using Explode() and ImplodeStr().

Browse Source
This commit is contained in:
Ansgar Becker
2009-10-30 16:36:24 +00:00
parent 17648df114
commit f3ff47313c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/table_editor.pas
View File

@@ -2207,9 +2207,9 @@ begin
Key := ForeignKeys[Node.Index] as TForeignKey;
case Column of
0: CellText := Key.KeyName;
1: CellText := Key.Columns.CommaText;
1: CellText := ImplodeStr(',', Key.Columns);
2: CellText := Key.ReferenceTable;
3: CellText := Key.ForeignColumns.CommaText;
3: CellText := ImplodeStr(',', Key.ForeignColumns);
4: begin
CellText := Key.OnUpdate;
// Both ON UPDATE + DELETE default to "RESTRICT", see http://dev.mysql.com/doc/refman/5.1/en/innodb-foreign-key-constraints.html
@@ -2236,9 +2236,9 @@ begin
Modification(Sender);
case Column of
0: Key.KeyName := NewText;
1: Key.Columns.CommaText := NewText;
1: Key.Columns := Explode(',', NewText);
2: Key.ReferenceTable := NewText;
3: Key.ForeignColumns.CommaText := NewText;
3: Key.ForeignColumns := Explode(',', NewText);
4: Key.OnUpdate := NewText;
5: Key.OnDelete := NewText;
end;