Do not go to start of query if error message did not contain a valid character position. Slightly wrong in r3570.

This commit is contained in:
Ansgar Becker
2011-01-19 21:04:04 +00:00
parent 58a95bc978
commit fda777f843

View File

@@ -2158,10 +2158,9 @@ var
ErrorPos := Pos(rx.Match[1], Copy(QueryTab.Memo.Text, SelStart, SIZE_KB));
if ErrorPos > 0 then
Inc(SelStart, ErrorPos-1);
QueryTab.Memo.SelLength := 0;
QueryTab.Memo.SelStart := SelStart;
end;
QueryTab.Memo.SelLength := 0;
QueryTab.Memo.SelStart := SelStart;
end;
begin