opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix usage of wrong TDBObject caused by using wrong offset from TDBObjectList.

Browse Source
This commit is contained in:
Ansgar Becker
2013-08-24 18:11:43 +00:00
parent 5e83eaab1b
commit 1347a3a368
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/insertfiles.pas
View File

@ -345,18 +345,18 @@ end;
procedure TfrmInsertFiles.comboTablesChange(Sender: TObject);
var
Selected: TDBObject;
Columns: TTableColumnList;
Col: TTableColumn;
ColInfo: TColInfo;
DBObjects: TDBObjectList;
Node: PVirtualNode;
begin
// Populate combobox with columns from selected table
ListColumns.Clear;
if comboTables.ItemIndex > -1 then begin
DBObjects := FConnection.GetDBObjects(comboDBs.Text);
Columns := TTableColumnList.Create(True);
FConnection.ParseTableStructure(DBObjects[comboTables.ItemIndex].CreateCode, Columns, nil, nil);
Selected := FConnection.FindObject(comboDBs.Text, comboTables.Text);
FConnection.ParseTableStructure(Selected.CreateCode, Columns, nil, nil);
Node := nil;
for Col in Columns do begin
ColInfo := TColInfo.Create;