Zeoslib Portal

Code: Select all

create procedure testproc as
begin
  /* this is a test for umlauts äöüß */
end ^

Code: Select all

insert into testtable (ID, TEXT) values (1, 'this is a test for umlauts äöüß') ^

create procedure testproc as
begin
  insert into testtable (ID, TEXT) values (1, 'this is a second test for umlauts äöüß');
  /* this is the third test for umlauts äöüß */
  insert into testtable (ID, TEXT) values (1, 'this is the fourth test for umlauts äöüß');
end ^

Code: Select all

function TZAbstractStatement.GetEncodedSQL(const SQL: {$IF defined(FPC) and defined(WITH_RAWBYTESTRING)}ZAnsiString{$ELSE}String{$IFEND}): ZAnsiString;
var
  SQLTokens: TZTokenDynArray;
  i: Integer;
begin
  if GetConnection.AutoEncodeStrings then
  begin
    Result := ''; //init for FPC
    SQLTokens := GetConnection.GetDriver.GetTokenizer.TokenizeEscapeBufferToList(SQL); //Disassembles the Query
    for i := Low(SQLTokens) to high(SQLTokens) do  //Assembles the Query
    begin
      case (SQLTokens[i].TokenType) of
        ttEscape:
          Result := Result + {$IFDEF UNICODE}ZPlainString{$ENDIF}(SQLTokens[i].Value);
        ttQuoted,
        ttWord, ttQuotedIdentifier, ttKeyword:
          Result := Result + ZPlainString(SQLTokens[i].Value);
        else
          Result := Result + ZAnsiString(SQLTokens[i].Value);
      end;
    end;
  end
  else
    {$IFDEF UNICODE}
    Result := ZPlainString(SQL);
    {$ELSE}
    Result := SQL;
    {$ENDIF}
end;