Пт авг 15, 2014 10:26 am Пт авг 15, 2014 10:26 am
if Name_Channel.Checked = True then
mcSendDataToMyChat(MCC_Get_ChannelName, Name_TxT_Chanel(StrToInt(Channel_List.Cells[0, Channel_List.Row]),Memo1.Text));
function Name_TxT_Chanel(UID:Integer;Channel:String):WideString;
var
JSONobj: ISuperObject;
begin
JSONobj := SO();
JSONobj.I['UID'] := UID;
JSONobj.S['Name'] := Channel;
result := JSONobj.AsJSon;
JSONobj.Clear(true);
JSONobj := nil;
end;
Проверьте.