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

Fix unicode table names and comments in alter table dialog

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-19 23:01:31 +00:00
parent dedc3d92b1
commit 3517253af7
3 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/helpers.pas
View File

@ -73,7 +73,7 @@ type
{$I const.inc}
function trimc(s: String; c: Char) : String;
function implodestr(seperator: String; a: TWideStringList) :WideString;
function implodestr(seperator: WideString; a: TWideStringList) :WideString;
function explode(separator, a: WideString) :TWideStringList;
procedure ensureValidIdentifier(name: String);
function getEnumValues(str: WideString): WideString;
@ -228,19 +228,17 @@ end;
@param a TStringList Containing strings
@return string
}
function implodestr(seperator: String; a: TWideStringList) :WideString;
function implodestr(seperator: WideString; a: TWideStringList) :WideString;
var
i : Integer;
text : String;
begin
result := '';
Result := '';
for i:=0 to a.Count-1 do
begin
text := text + a[i];
Result := Result + a[i];
if i < a.Count-1 then
text := text + seperator;
Result := Result + seperator;
end;
result := text;
end;