| 448 |
|
FState := PopState; |
| 449 |
|
stInDoubleQuotes, |
| 450 |
|
stInSingleQuotes: |
| 451 |
< |
raise Exception.Create(sNoEndToThis); |
| 451 |
> |
Begin |
| 452 |
> |
FLiteral := FLiteral + #$0A; |
| 453 |
> |
Exit; |
| 454 |
> |
End; |
| 455 |
|
end; |
| 456 |
|
AddToSQL(' '); |
| 457 |
|
Exit; |
| 786 |
|
Inc(index) |
| 787 |
|
end; |
| 788 |
|
|
| 789 |
< |
if (Result = sqString) and not (FState in [stInComment,stInCommentLine])then |
| 789 |
> |
if (Result = sqString) and not (FState in [stInComment,stInCommentLine, stInSingleQuotes,stInDoubleQuotes])then |
| 790 |
|
Result := Check4ReservedWord(FString); |
| 791 |
|
|
| 792 |
|
if (index > Length(Line)) then |
| 793 |
< |
if Result = sqNone then |
| 793 |
> |
begin |
| 794 |
> |
if (Result = sqNone) then |
| 795 |
|
Result := sqEOL |
| 796 |
|
else |
| 797 |
|
if (FLastSymbol = sqNone) and (Result <> sqEOL) then |
| 798 |
|
FLastSymbol := sqEOL; |
| 799 |
+ |
end; |
| 800 |
|
|
| 801 |
|
end; |
| 802 |
|
|
