Fix remembering delimiter string after detecting one with parsesql()

This commit is contained in:
Ansgar Becker
2008-07-07 05:38:37 +00:00
parent 1d3bfe6219
commit 815aaaf3e7
3 changed files with 10 additions and 10 deletions

View File

@ -2434,9 +2434,9 @@ var
recordcount : Integer;
ds : TDataSet;
begin
if CurrentLine then SQL := parseSQL(SynMemoQuery.LineText, Mainform.Delimiter)
else if Selection then SQL := parseSQL(SynMemoQuery.SelText, Mainform.Delimiter)
else SQL := parseSQL(SynMemoQuery.Text, Mainform.Delimiter);
if CurrentLine then SQL := parseSQL(SynMemoQuery.LineText)
else if Selection then SQL := parseSQL(SynMemoQuery.SelText)
else SQL := parseSQL(SynMemoQuery.Text);
if ( SQL.Count = 0 ) then
begin