Konvertierung Access --> XML

[himitsu]

Warum Platzhalter? (wo du ja noch nichtmal das B auswertest)

Delphi-Quellcode:

ftUnknown:     ;
ftString:      ClientDataSet.FieldDefs.Add(...
ftWideString:  ClientDataSet.FieldDefs.Add(...
ftInteger:     ClientDataSet.FieldDefs.Add(...
ftSmallint:    ;
ftCurrency:    ;
ftAutoInc:     ClientDataSet.FieldDefs.Add(...
ftWord:        ;
ftFloat:       ;
ftBoolean:     ;
ftBCD:         ;
ftTime:        ;
ftDate:        ;
ftDateTime:    ;
ftBytes:       ;
ftVarBytes:    ;
ftBlob:        ;
ftMemo:        ;
ftGraphic:     ;
ftFmtMemo:     ;
ftParadoxOle:  ;
ftDBaseOle:    ;
ftTypedBinary: ;
ftCursor:      ;
ftFixedChar:   ;
ftLargeint:    ;
ftADT:         ;
ftArray:       ;
ftReference:   ;
ftDataSet:     ;
ftOraBlob:     ;
ftOraClob:     ;
ftVariant:     ;
ftInterface:   ;
ftIDispatch:   ;
ftGuid:        ;
ftTimeStamp:   ;
ftFMTBcd:      ;
else           {Fehler oder was weiß ich .... kommt man überhaut hier jemals vorbei?};

Wobei ich es wohl eher etwa so lösen würde.
Hier hätte man auch 'ne bessere Kontrolle über alles, welches schon implementiert ist.

Delphi-Quellcode:

//ftUnknown:   ;
ftString:      ClientDataSet.FieldDefs.Add(...
ftWideString:  ClientDataSet.FieldDefs.Add(...
ftInteger:     ClientDataSet.FieldDefs.Add(...
//ftSmallint:  ;
//ftCurrency:  ;
ftAutoInc:     ClientDataSet.FieldDefs.Add(...
//ftWord:      ;
//ftFloat:     ;
//ftBoolean:   ;
//ftBCD:       ;
//ftTime:      ;
//ftDate:      ;
//ftDateTime:  ;
//ftBytes:     ;
//ftVarBytes:  ;
//ftBlob:      ;
//ftMemo:      ;
//ftGraphic:   ;
//ftFmtMemo:   ;
//ftParadoxOle: ;
//ftDBaseOle:  ;
//ftTypedBinary: ;
//ftCursor:    ;
//ftFixedChar: ;
//ftLargeint:  ;
//ftADT:       ;
//ftArray:     ;
//ftReference: ;
//ftDataSet:   ;
//ftOraBlob:   ;
//ftOraClob:   ;
//ftVariant:   ;
//ftInterface: ;
//ftIDispatch: ;
//ftGuid:      ;
//ftTimeStamp: ;
//ftFMTBcd:    ;
else           Raise Exception.Create('not implemented');