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

Parse result of SHOW CREATE PROCEDURE, instead of querying information_schema.ROUTINES, which seems broken as escaped quotes appear non-escaped here, on a 5.1.22 server. Fixes issue #1713.

Browse Source
This commit is contained in:
Ansgar Becker
2010-02-23 21:25:48 +00:00
parent e3be57c4ee
commit 25be03a4b0
2 changed files with 56 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/helpers.pas
View File

@ -158,7 +158,7 @@ type
{$I const.inc}
function implodestr(seperator: String; a: TStringList) :String;
function implodestr(seperator: String; a: TStrings) :String;
function explode(separator, a: String) :TStringList;
procedure ExplodeQuotedList(Text: String; var List: TStringList);
procedure ensureValidIdentifier(name: String);
@ -300,7 +300,7 @@ end;
@param a TStringList Containing strings
@return string
}
function implodestr(seperator: String; a: TStringList) :String;
function implodestr(seperator: String; a: TStrings) :String;
var
i : Integer;
begin