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

Make more use of Generics, this time for columns, keys and foreigne keys lists, used by main unit and table editor. Frees code from annoying casting and makes it more type safe.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-08 00:30:51 +00:00
parent 35aa9c4dbf
commit 25ac096554
5 changed files with 109 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/data_sorting.pas
View File

@ -35,7 +35,7 @@ type
procedure Modified;
public
{ Public declarations }
Columns: TObjectList;
FColumns: TTableColumnList;
end;
@ -55,7 +55,7 @@ procedure TDataSortingForm.FormCreate(Sender: TObject);
begin
InheritFont(Font);
ColumnNames := TWideStringlist.Create;
Columns := TObjectList.Create;
FColumns := TTableColumnList.Create;
end;
@ -64,16 +64,17 @@ end;
}
procedure TDataSortingForm.FormShow(Sender: TObject);
var
Col: TTableColumn;
i: Integer;
KeysDummy: TTableKeyList;
ForeignKeysDummy: TForeignKeyList;
begin
// Take column names from listColumns and add here
ParseTableStructure(Mainform.SelectedTableCreateStatement, Columns);
KeysDummy := nil;
ForeignKeysDummy := nil;
ParseTableStructure(Mainform.SelectedTableCreateStatement, FColumns, KeysDummy, ForeignKeysDummy);
ColumnNames.Clear;
for i:=0 to Columns.Count-1 do begin
Col := TTableColumn(Columns[i]);
ColumnNames.Add(Col.Name);
end;
for i:=0 to FColumns.Count-1 do
ColumnNames.Add(FColumns[i].Name);
OrderColumns := Mainform.FDataGridSort;
OldOrderClause := ComposeOrderClause(OrderColumns);