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

Try to fix issue #1188: weird values in collation pulldown inside the text editor. Could it be that TField.AsString is broken if this heals the problem.

Browse Source
This commit is contained in:
Ansgar Becker
2009-06-05 20:44:39 +00:00
parent edcd544953
commit 6576461b9e
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/main.pas
View File

@ -860,7 +860,7 @@ type
function GetRegKeyTable: String;
procedure SaveListSetup( List: TVirtualStringTree );
procedure RestoreListSetup( List: TVirtualStringTree );
function GetCollations(Items: TStrings = nil): TDataset;
function GetCollations(Items: TWideStrings = nil): TDataset;
procedure SetEditorTabCaption(Editor: TFrame; ObjName: WideString);
end;
@ -8842,7 +8842,7 @@ begin
end;
function TMainform.GetCollations(Items: TStrings = nil): TDataset;
function TMainform.GetCollations(Items: TWideStrings = nil): TDataset;
begin
// Return cached collation list, used in several places, e.g. table editor
if (dsCollations = nil) or (dsCollations.State = dsInactive) then
@ -8851,7 +8851,7 @@ begin
dsCollations.First;
if Assigned(Items) then begin
while not dsCollations.Eof do begin
Items.Add(dsCollations.FieldByName('Collation').AsString);
Items.Add(dsCollations.FieldByName('Collation').AsWideString);
dsCollations.Next;
end;
dsCollations.First;