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

Fix a follow up error of previous commit - need to call CharsetTable.First now.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-05 16:54:43 +00:00
parent 37f83b6af8
commit de45bdd24a
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/mysql_connection.pas
View File

@ -729,11 +729,14 @@ var
begin
c := CharsetTable;
Result := TStringList.Create;
if Assigned(c) then while not c.Eof do begin
if Assigned(c) then begin
c.First;
while not c.Eof do begin
Result.Add(c.Col('Description') + ' (' + c.Col('Charset') + ')');
c.Next;
end;
end;
end;
function TMySQLConnection.GetInformationSchemaObjects: TWideStringList;