Konverzia TDataSetState String

Funkcia zabezpečí prevod dátového typu, ktorý používajú datasety v delphi na reťazec znakov. Vhodné hlavne pri ladení aplikácií.

Kód:

 
function DataSetStateToStr(State: TDataSetState):String;
 begin
   case State of
     dsInactive:        result:  'dsInactive';
     dsBrowse:        result:  'dsBrowse';
     dsEdit:               result:  'dsEdit';
     dsInsert:            result:  'dsInsert';
     dsSetKey:          result:  'dsSetKey';
     dsCalcFields:   result:  'dsCalcFields';
     dsFilter:              result:  'dsFilter';
     dsNewValue:    result:  'dsNewValue';
     dsOldValue:      result:  'dsOldValue';
     dsCurValue:      result:  'dsCurValue';
     dsBlockRead:   result:  'dsBlockRead';
     dsInternalCalc: result:  'dsInternalCalc';
     dsOpening:       result:  'dsOpening';
   end;
end; 

in-page-blade(geshi-syntax-highlighter)