Multi-language readme

README.md

@@ -3,8 +3,7 @@
 - 2024-09-05 by gale
 - https://github.com/higale/RJSON
 
-**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md)**
-
+**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md) | [日本語](README_ja.md) | [한국어](README_ko.md)**
 
 ## Properties:
 - `Items[Path]` Path-based read/write, works for both Objects and Arrays.

README_ja.md

@@ -0,0 +1,175 @@
+# TRJ - JSON 簡単読み書き
+- v0.9.1
+- 2024-09-05 by gale
+- https://github.com/higale/RJSON
+
+**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md) | [日本語](README_ja.md) | [한국어](README_ko.md)**
+
+## 属性:
+- `Items[Path]` パスベースの読み書き、オブジェクトと配列の両方に対応。
+
+        a['x.y[2].z'] := 5;
+        b['[3].ok'] := false;
+
+- `Items[Index]` 配列の読み書き。
+
+        a[3][1] := 'hello';
+
+- `Pairs[Index]` JSONObject 下のキー-値ペアの取得。
+
+        for var i := 0 to RJ.Count do
+        begin
+            Memo1.Lines.Add(RJ.Pairs[i].Key + '=' + RJ.Pairs[i].Format(0));
+        end;
+
+- `Count` オブジェクトまたは配列内のエントリ数、他のタイプでは 0 を返す。
+- `Index` 配列内のエントリのインデックス、配列データでない場合は -1 を返す。
+- `Key` キー-値ペアデータの場合、キーを返す。それ以外は空文字列を返す。
+- `Root` ルートデータへのインターフェース。
+- `Path` 値のパス。
+- `JSONValue` `TJSONValue` を含む。
+
+## メソッド
+- `ToStr` 文字列に変換、デフォルトは空文字列。
+
+        var str: string;
+
+        str := RJ['title'];
+        str := RJ['title'].ToStr;
+        str := RJ['title'].ToStr('No Title');
+
+- `ToInt` 整数に変換、デフォルトは 0。
+
+        var i: integer;
+
+        i := RJ['num'];
+        i := RJ['num'].ToInt;
+        i := RJ['num'].ToInt(-1);
+
+- `ToInt64` 64ビット整数に変換、デフォルトは 0。
+
+        var i64: Int64;
+
+        i64 := RJ['num64'];
+        i64 := RJ['num64'].ToInt64;
+        i64 := RJ['num64'].ToInt64(-1);
+
+- `ToFloat` 浮動小数点数に変換（Extendedを使用）、デフォルトは 0.0。
+
+        var f: Extended;
+
+        f := RJ['num'];
+        f := RJ['num'].ToFloat;
+        f := RJ['num'].ToFloat(100.0);
+
+- `ToBool` Booleanに変換、デフォルトは False。
+
+        var b: Boolean;
+
+        b := RJ['bool'];
+        b := RJ['bool'].ToBool;
+        b := RJ['bool'].ToBool(True);
+
+- `RootIs<T: TJSONValue>` ルートが特定のタイプであるかどうかを確認（TJSONObject、TJSONArrayなど）。
+- `ValueIs<T: TJSONValue>` 現在の値が特定のタイプであるかどうかを確認（TJSONObject、TJSONArrayなど）。
+- `CloneJSONValue` 現在の値をクローン、現在の値がない場合 TJSONNull を生成。
+- `Reset` 工場設定に戻す。
+- `Format` 形式化された JSON 文字列を出力。
+
+        str1 := RJ.Format(2); // 2スペースのインデント（デフォルトは 4）
+        str2 := RJ.Format(0); // 圧縮形式、インデントなし、改行なし
+
+- `ParseJSONValue` 文字列からデータをロード。
+
+        RJ.ParseJSONValue('{"a":1}');
+
+- `LoadFromFile` ファイルからデータをロード。
+
+        procedure LoadFromFile(
+            const AFileName: string;   // JSON ファイル名
+            AUseBool: boolean = False; // JSON データで true または false を検出したときに TJSONBool 型の値を作成するかどうか
+            ARaiseExc: boolean = False // 無効な JSON データを検出したときに例外を発生させるかどうか
+        );
+
+- `SaveToFile` ファイルに保存。
+
+        procedure SaveToFile(
+            const AFileName: string;            // ファイル名
+            AIndentation: Integer = 4;          // インデントのスペース数、0: インデントなし、改行なし
+            AWriteBOM: boolean = False;         // ファイルに BOM マーカーを追加するかどうか
+            ATrailingLineBreak: boolean = False // 末尾に空行を追加するかどうか
+        );
+
+## 例:
+    procedure TFormMain.btnTestClick(Sender: TObject);
+    var
+      RJ, RJ1: TRJ;
+      fTemp: Extended;
+    begin
+      RJ['title'] := 'hello world! 你好，世界！';
+      RJ['a.num'] := 1;
+      RJ['a.hah'] := false;
+      RJ['b[2]'] := 505;
+      RJ['b[0]'] := 'first';
+      RJ['good'] := True;
+      RJ1 := RJ['c'];
+      RJ1['c1'] := 1.1;
+      RJ1['c2[2]'] := 2.33;
+      with RJ['x'] do
+      begin
+        items[1] := 100;
+        items[2] := '202';
+      end;
+      with RJ['y'] do
+      begin
+        items['ya'] := 'y1';
+        items['yb'] := -2;
+      end;
+      Memo1.Text := RJ.Format;
+      Memo1.Lines.Add('-----------------------------------------------------------');
+      fTemp := RJ['c.c2[3]'];
+      Memo1.Lines.Add('fTemp:' + fTemp.ToString);
+      fTemp := RJ['c.c3[3]'].ToFloat(-100);
+      Memo1.Lines.Add('fTemp:' + fTemp.ToString);
+      Memo1.Lines.Add(RJ['a.num'].ToStr('a.num not exist'));
+      Memo1.Lines.Add(RJ['none'].ToFloat(-1).ToString);
+      Memo1.Lines.Add(RJ['none.a3'].ToStr('none.a3 not exist'));
+      RJ.SaveToFile('test.json', 0);
+    end;
+
+    procedure TFormMain.btnOpenClick(Sender: TObject);
+    var
+      RJ: TRJ;
+      strTmp: string;
+    begin
+      RJ.LoadFromFile('test.json');
+      Memo1.Text := RJ.Format(8);
+      Memo1.Lines.Add('-----------------------ROOT--------------------------');
+      for var item in RJ do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[a]--------------------------');
+      for var item in RJ['a'] do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[b]--------------------------');
+      for var item in RJ['b'] do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[c]--------------------------');
+      for var i := 0 to RJ['c'].Count - 1 do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [RJ['c'].Pairs[i].Index, RJ['c'].Pairs[i].Key, RJ['c'].Pairs[i].Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+    end;

README_ko.md

@@ -0,0 +1,175 @@
+# TRJ - JSON 간단 읽기 및 쓰기
+- v0.9.1
+- 2024-09-05 by gale
+- https://github.com/higale/RJSON
+
+**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md) | [日本語](README_ja.md) | [한국어](README_ko.md)**
+
+## 속성:
+- `Items[Path]` 경로 기반 읽기/쓰기, 객체와 배열 모두 지원.
+
+        a['x.y[2].z'] := 5;
+        b['[3].ok'] := false;
+
+- `Items[Index]` 배열 읽기/쓰기.
+
+        a[3][1] := 'hello';
+
+- `Pairs[Index]` JSONObject 아래의 키-값 쌍 검색.
+
+        for var i := 0 to RJ.Count do
+        begin
+            Memo1.Lines.Add(RJ.Pairs[i].Key + '=' + RJ.Pairs[i].Format(0));
+        end;
+
+- `Count` 객체 또는 배열 내 항목 수, 다른 유형은 0 반환.
+- `Index` 배열 내 항목의 인덱스, 배열 데이터가 아닌 경우 -1 반환.
+- `Key` 키-값 쌍 데이터일 경우 키 반환, 그렇지 않으면 빈 문자열 반환.
+- `Root` 루트 데이터에 대한 인터페이스.
+- `Path` 값의 경로.
+- `JSONValue` `TJSONValue`를 포함.
+
+## 메서드
+- `ToStr` 문자열로 변환, 기본값은 빈 문자열.
+
+        var str: string;
+
+        str := RJ['title'];
+        str := RJ['title'].ToStr;
+        str := RJ['title'].ToStr('No Title');
+
+- `ToInt` 정수로 변환, 기본값은 0.
+
+        var i: integer;
+
+        i := RJ['num'];
+        i := RJ['num'].ToInt;
+        i := RJ['num'].ToInt(-1);
+
+- `ToInt64` 64비트 정수로 변환, 기본값은 0.
+
+        var i64: Int64;
+
+        i64 := RJ['num64'];
+        i64 := RJ['num64'].ToInt64;
+        i64 := RJ['num64'].ToInt64(-1);
+
+- `ToFloat` 부동 소수점 수로 변환 (Extended 사용), 기본값은 0.0.
+
+        var f: Extended;
+
+        f := RJ['num'];
+        f := RJ['num'].ToFloat;
+        f := RJ['num'].ToFloat(100.0);
+
+- `ToBool` 부울로 변환, 기본값은 False.
+
+        var b: Boolean;
+
+        b := RJ['bool'];
+        b := RJ['bool'].ToBool;
+        b := RJ['bool'].ToBool(True);
+
+- `RootIs<T: TJSONValue>` 루트가 특정 유형인지 확인 (TJSONObject, TJSONArray 등).
+- `ValueIs<T: TJSONValue>` 현재 값이 특정 유형인지 확인 (TJSONObject, TJSONArray 등).
+- `CloneJSONValue` 현재 값을 클론, 현재 값이 없는 경우 TJSONNull 생성.
+- `Reset` 공장 설정으로 초기화.
+- `Format` 형식화된 JSON 문자열 출력.
+
+        str1 := RJ.Format(2); // 2칸 들여쓰기 (기본값은 4칸)
+        str2 := RJ.Format(0); // 압축 형식, 들여쓰기 없음, 줄 바꿈 없음
+
+- `ParseJSONValue` 문자열에서 데이터 로드.
+
+        RJ.ParseJSONValue('{"a":1}');
+
+- `LoadFromFile` 파일에서 데이터 로드.
+
+        procedure LoadFromFile(
+            const AFileName: string;   // JSON 파일 이름
+            AUseBool: boolean = False; // JSON 데이터에서 true 또는 false를 만나면 TJSONBool 타입 값 생성 여부
+            ARaiseExc: boolean = False // 유효하지 않은 JSON 데이터를 만났을 때 예외 발생 여부
+        );
+
+- `SaveToFile` 파일에 저장.
+
+        procedure SaveToFile(
+            const AFileName: string;            // 파일 이름
+            AIndentation: Integer = 4;          // 들여쓰기 칸 수, 0: 들여쓰기 없음, 줄 바꿈 없음
+            AWriteBOM: boolean = False;         // 파일에 BOM 마커 추가 여부
+            ATrailingLineBreak: boolean = False // 마지막에 빈 줄 추가 여부
+        );
+
+## 예제:
+    procedure TFormMain.btnTestClick(Sender: TObject);
+    var
+      RJ, RJ1: TRJ;
+      fTemp: Extended;
+    begin
+      RJ['title'] := 'hello world! 你好，世界！';
+      RJ['a.num'] := 1;
+      RJ['a.hah'] := false;
+      RJ['b[2]'] := 505;
+      RJ['b[0]'] := 'first';
+      RJ['good'] := True;
+      RJ1 := RJ['c'];
+      RJ1['c1'] := 1.1;
+      RJ1['c2[2]'] := 2.33;
+      with RJ['x'] do
+      begin
+        items[1] := 100;
+        items[2] := '202';
+      end;
+      with RJ['y'] do
+      begin
+        items['ya'] := 'y1';
+        items['yb'] := -2;
+      end;
+      Memo1.Text := RJ.Format;
+      Memo1.Lines.Add('-----------------------------------------------------------');
+      fTemp := RJ['c.c2[3]'];
+      Memo1.Lines.Add('fTemp:' + fTemp.ToString);
+      fTemp := RJ['c.c3[3]'].ToFloat(-100);
+      Memo1.Lines.Add('fTemp:' + fTemp.ToString);
+      Memo1.Lines.Add(RJ['a.num'].ToStr('a.num not exist'));
+      Memo1.Lines.Add(RJ['none'].ToFloat(-1).ToString);
+      Memo1.Lines.Add(RJ['none.a3'].ToStr('none.a3 not exist'));
+      RJ.SaveToFile('test.json', 0);
+    end;
+
+    procedure TFormMain.btnOpenClick(Sender: TObject);
+    var
+      RJ: TRJ;
+      strTmp: string;
+    begin
+      RJ.LoadFromFile('test.json');
+      Memo1.Text := RJ.Format(8);
+      Memo1.Lines.Add('-----------------------ROOT--------------------------');
+      for var item in RJ do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[a]--------------------------');
+      for var item in RJ['a'] do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[b]--------------------------');
+      for var item in RJ['b'] do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [item.Index, item.Key, item.Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+      Memo1.Lines.Add('-----------------------RJ[c]--------------------------');
+      for var i := 0 to RJ['c'].Count - 1 do
+      begin
+        strTmp := Format('Index: %d  Key: %s  Value: %s',
+          [RJ['c'].Pairs[i].Index, RJ['c'].Pairs[i].Key, RJ['c'].Pairs[i].Format(0)]);
+        Memo1.Lines.Add(strTmp);
+      end;
+    end;

README_zh_CN.md

@@ -3,7 +3,7 @@
 - 2024-09-05 by gale
 - https://github.com/higale/RJSON
 
-**语言版本: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md)**
+**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md) | [日本語](README_ja.md) | [한국어](README_ko.md)**
 
 ## 属性：
 - `Items[Path]` 基于路径的读写，适用于对象和数组。

README_zh_TW.md

@@ -3,7 +3,7 @@
 - 2024-09-05 by gale
 - https://github.com/higale/RJSON
 
-**語言版本: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md)**
+**Languages: [English](README.md) | [简体中文](README_zh_CN.md) | [繁體中文](README_zh_TW.md) | [日本語](README_ja.md) | [한국어](README_ko.md)**
 
 ## 屬性：
 - `Items[Path]` 基於路徑的讀寫，適用於物件和陣列。