4楼必须自己做转换函数,比如:
function TMainForm.StateToString(AState:TTaskMessageState):string;
begin
//(tmsSend, tmsReceived, tmsProcessing, tmsWaiting, tmsWaited, tmsFinished, tmsCanceled, tmsAborted, tmsReturned, tmsTransmited);
result:='99';
case AState of
TTaskMessageState.tmsSend:result:='0';
TTaskMessageState.tmsReceived:result:='1';
TTaskMessageState.tmsProcessing:result:='2';
TTaskMessageState.tmsWaiting:result:='3';
TTaskMessageState.tmsWaited:result:='4';
TTaskMessageState.tmsFinished:result:='5';
TTaskMessageState.tmsCanceled:result:='6';
TTaskMessageState.tmsAborted:result:='7';
TTaskMessageState.tmsReturned:result:='8';
TTaskMessageState.tmsTransmited:result:='9';
end;
end; |