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

Routine comments can have single quotes escaped by single quotes. Fixes issue #1728.

Browse Source
This commit is contained in:
Ansgar Becker
2010-02-26 16:53:51 +00:00
parent 4e84c99a72
commit 8a00d312fa
1 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/routine_editor.pas
View File

@ -132,7 +132,6 @@ var
Context: String;
rx: TRegExpr;
i: Integer;
IsEsc: Boolean;
begin
inherited;
if ObjectType = lntProcedure then FAlterRoutineType := 'PROCEDURE'
@ -213,16 +212,11 @@ begin
comboSecurity.ItemIndex := comboSecurity.Items.IndexOf(rx.Match[1]);
Delete(Create, rx.MatchPos[0], rx.MatchLen[0]);
end;
rx.Expression := '\bCOMMENT\s+''';
rx.ModifierG := False;
rx.Expression := '\bCOMMENT\s+''((.+)[^''])''[^'']';
if rx.Exec(Create) then begin
IsEsc := False;
for i:=rx.MatchPos[0]+rx.MatchLen[0] to Length(Create) do begin
if (Create[i]='''') and (not IsEsc) then
break;
editComment.Text := editComment.Text + Create[i];
IsEsc := Create[i] = '\';
end;
Delete(Create, rx.MatchPos[0], rx.MatchLen[0]+Length(editComment.Text)+1);
editComment.Text := StringReplace(rx.Match[1], '''''', '''', [rfReplaceAll]);
Delete(Create, rx.MatchPos[0], rx.MatchLen[0]-1);
end;
// Tata, remaining code is the routine body
Create := TrimLeft(Create);