Ist mein Programm jetzt wirklich Unicode? Trotz Umwandlung?

[RWarnecke]

Unter Zeos heißt die Eigenschaft DataType und nicht FieldType. Datatype gibt dann einen Integer zurück. Anhand des Integers kann man dann bestimmen, welchen Type das Feld hat. Hier ein Beispiel :

Delphi-Quellcode:

    begin
      case TMPQuery.Fields[IntZaehler].datatype of
        ftUnknown:
          begin
            sType := 'Unknown';
          end;
        ftString:
          begin
            sType := 'String';
          end;
        ftSmallint:
          begin
            sType := 'Smallint';
          end;
        ftInteger:
          begin
            sType := 'Integer';
          end;
        ftWord:
          begin
            sType := 'Word';
          end;
        ftBoolean:
          begin
            sType := 'Boolean';
          end;
        ftFloat:
          begin
            sType := 'Float';
          end;
        ftCurrency:
          begin
            sType := 'Currency';
          end;
        ftBCD:
          begin
            sType := 'BCD';
          end;
        ftDate:
          begin
            sType := 'Date';
          end;
        ftTime:
          begin
            sType := 'Time';
          end;
        ftDateTime:
          begin
            sType := 'DateTime';
          end;
        ftBytes:
          begin
            sType := 'Bytes';
          end;
        ftVarBytes:
          begin
            sType := 'VarBytes';
          end;
        ftAutoInc:
          begin
            sType := 'AutoInc';
          end;
        ftBlob:
          begin
            sType := 'Blob';
          end;
        ftMemo:
          begin
            sType := 'Memo';
          end;
        ftGraphic:
          begin
            sType := 'Graphicc';
          end;
        ftFmtMemo:
          begin
            sType := 'FmtMemo';
          end;
        ftParadoxOle:
          begin
            sType := 'ParadoxOlee';
          end;
        ftDBaseOle:
          begin
            sType := 'DBaseOle';
          end;
        ftTypedBinary:
          begin
            sType := 'TypedBinary';
          end;
        ftCursor:
          begin
            sType := 'Cursor';
          end;
        ftFixedChar:
          begin
            sType := 'FixedChar';
          end;
        ftWideString:
          begin
            sType := 'WideString';
          end;
        ftLargeInt:
          begin
            sType := 'LargeInt';
          end;
        ftADT:
          begin
            sType := 'ADT';
          end;
        ftArray:
          begin
            sType := 'Array';
          end;
        ftReference:
          begin
            sType := 'Reference';
          end;
        ftDataSet:
          begin
            sType := 'DataSet';
          end;
        ftOraBlob:
          begin
            sType := 'OraBlob';
          end;
        ftOraClob:
          begin
            sType := 'OraClob';
          end;
        ftVariant:
          begin
            sType := 'Variant';
          end;
        ftInterface:
          begin
            sType := 'Interface';
          end;
        ftIDispatch:
          begin
            sType := 'IDispatch';
          end;
        ftGuid:
          begin
            sType := 'Guid';
          end;
      end;

Wie gesagt, ist nur aus einem Programm rauskopiert.