mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: MacCloud/DropBox step-14: improve TJsonUtil

Browse source
This commit is contained in:
rich2014 2025-04-01 20:37:46 +08:00
commit 69ddc0e41b
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
plugins/wfx/MacCloud/src/util/uminiutil.pas
View file

@ -64,6 +64,10 @@ type
public
class function dumps( const Elements: Array of Const; const ensureAscii: Boolean = False ): String;
class function parse( const jsonString: String ): NSDictionary;
class procedure setString( const json: NSMutableDictionary; const key: String; const value: String );
class procedure setBoolean( const json: NSMutableDictionary; const key: String; const value: Boolean );
class procedure setInteger( const json: NSMutableDictionary; const key: String; const value: Integer );
class procedure setArray( const json: NSMutableDictionary; const key: String; const value: NSArray );
class function getString( const json: NSDictionary; const key: String ): String;
class function getBoolean( const json: NSDictionary; const key: String ): Boolean;
class function getInteger( const json: NSDictionary; const key: String ): Integer;
@ -247,6 +251,7 @@ var
vtInteger : Result:= NSNumber.numberWithLongLong( VInteger );
vtInt64 : Result:= NSNumber.numberWithLongLong( VInt64^ );
vtQWord : Result:= NSNumber.numberWithLongLong( VQWord^ );
vtPointer : Result:= NSObject( VPointer );
end;
end;
@ -310,6 +315,30 @@ begin
Result:= nil;
end;
class procedure TJsonUtil.setString(const json: NSMutableDictionary; const key: String;
const value: String);
begin
json.setObject_forKey( StringToNSString(value), StringToNSString(key) );
end;
class procedure TJsonUtil.setBoolean(const json: NSMutableDictionary;
const key: String; const value: Boolean);
begin
json.setObject_forKey( NSNumber.numberWithBool(value), StringToNSString(key) );
end;
class procedure TJsonUtil.setInteger(const json: NSMutableDictionary;
const key: String; const value: Integer);
begin
json.setObject_forKey( NSNumber.numberWithLongLong(value), StringToNSString(key) );
end;
class procedure TJsonUtil.setArray(const json: NSMutableDictionary; const key: String;
const value: NSArray);
begin
json.setObject_forKey( value, StringToNSString(key) );
end;
class function TJsonUtil.getString(const json: NSDictionary; const key: String ): String;
begin
Result:= NSString( json.objectForKey( StringToNSString(key) ) ).UTF8String;