unit STA;interfaceuses System.SysUtils, System.Classes;typeTSta = recordFSeparator: Char;FArr: TArray<TArray<string>>;constructor Create(const aStr: string; const aSeparator: Char = ';'); overload;class operator Explicit(const aStr: string): TSta;class operator Implicit(const aStr: string): TSta;function GetItem(i,j: Integer): string;procedure SetItem(i,j: Integer; Value: string);function GetRow(i: Integer): string;procedure SetRow(i: Integer; Value: string);procedure SetSeparator(const Value: Char);function GetRowCount: Integer;procedure SetRowCount(const Value: Integer);function ToString: string;procedure Clear;procedure LoadFromFile(const aFileName: string; aEncoding: TEncoding = nil);procedure SaveToFile(const aFileName: string; aEncoding: TEncoding = nil);property Separator: Char read FSeparator write SetSeparator;property RowCount: Integer read GetRowCount write SetRowCount;property Items[i,j: Integer]: string read GetItem write SetItem; default;property Rows[i: Integer]: string read GetRow write SetRow;end;implementation{ TSta }procedure TSta.Clear;
beginSetLength(FArr, 0);
end;constructor TSta.Create(const aStr: string; const aSeparator: Char);
vartArr: TArray<string>;i: Integer;
beginFSeparator := aSeparator;tArr := aStr.Split([sLineBreak], ExcludeEmpty);SetLength(FArr, Length(tArr));for i := 0 to High(FArr) dobeginFArr[i] := tArr[i].Split([FSeparator]);end;
end;function TSta.GetItem(i,j: Integer): string;
beginResult := '';if (i < 0) or (j < 0) then Exit;if (i < Length(FArr)) and (j < Length(FArr[i])) thenResult := FArr[i, j].Trim;
end;procedure TSta.SetItem(i,j: Integer; Value: string);
vark,n: Integer;
beginif Value.Trim = '' then Exit;if Length(FArr) = 0 then FSeparator := ';';n := Length(FArr);if i >= n thenbeginSetLength(FArr, i+1);for k := n to i - 1 do SetLength(FArr[k], 1);end;if j >= Length(FArr[i]) then SetLength(FArr[i], j+1);FArr[i,j] := Value.Trim;
end;function TSta.GetRow(i: Integer): string;
beginResult := '';if i < Length(FArr) thenbeginif Length(FArr[i]) > 0 thenResult := Result.Join(FSeparator, FArr[i]);end;
end;function TSta.GetRowCount: Integer;
beginResult := Length(FArr);
end;procedure TSta.SetRow(i: Integer; Value: string);
vark,n: Integer;
beginif Value.Trim = '' then Exit;if Length(FArr) = 0 then FSeparator := ';';n := Length(FArr);if i >= n thenbeginSetLength(FArr, i+1);for k := n to i - 1 do SetLength(FArr[k], 1);end;FArr[i] := Value.Split([FSeparator]);
end;procedure TSta.SetRowCount(const Value: Integer);
beginSetLength(FArr, Value);
end;procedure TSta.SetSeparator(const Value: Char);
beginFSeparator := Value;if Length(FArr) = 0 then SetLength(FArr, 1); //直接使用索引赋值时, 会根据 Length(FArr) 是否为 0 来设置默认分隔符
end;class operator TSta.Explicit(const aStr: string): TSta;
beginResult := TSta.Create(aStr);
end;class operator TSta.Implicit(const aStr: string): TSta;
beginResult := TSta.Create(aStr);
end;function TSta.ToString: string;
vari: Integer;
beginif Length(FArr) = 0 then Exit('');Result := Rows[0];for i := 1 to High(FArr) doResult := Result + sLineBreak + Rows[i];
end;procedure TSta.LoadFromFile(const aFileName: string; aEncoding: TEncoding);
beginif not FileExists(aFileName) then Exit;if aEncoding = nil then aEncoding := TEncoding.Default;with TStringList.Create do beginLoadFromFile(aFileName, aEncoding);Self := Text;Free;end;
end;procedure TSta.SaveToFile(const aFileName: string; aEncoding: TEncoding);
beginif aEncoding = nil then aEncoding := TEncoding.Default;with TStringList.Create do beginText := Self.ToString;SaveToFile(aFileName, aEncoding);Free;end;
end;end.

uses STA;procedure TForm1.Button1Click(Sender: TObject);
varS: TSta;str: string;
beginS := 'AAA;BBB;CCC' + sLineBreak + '111;222;333'; //可以从字符串隐式或显式地转换到 TStastr := S[0,0];    //AAAstr := S[1,2];    //333str := S[9,9];    //越界读取返回空str := S.Rows[0]; //AAA;BBB;CCCstr := S.Rows[1]; //111;222;333str := S.ToString; //AAA;BBB;CCC//111;222:333S.Separator := '&'; //更换分隔符; 默认是分号; 也可在 Create 时指定str := S.Rows[1];   //111&222&333ShowMessage(str);
end;procedure TForm1.Button2Click(Sender: TObject);
varS: TSta;str: string;
beginS[0,0] := 'aaa';S[0,1] := 'bbb';S[0,2] := 'ccc';S[2,2] := 'zzz';str := S.ToString; //aaa;bbb;ccc////;;zzzS.Rows[1] := '111;222;333';str := S.ToString; //aaa;bbb;ccc//111;222;333//;;zzz
//  ShowMessage(str);
end;procedure TForm1.Button3Click(Sender: TObject);
constnFileName = 'c:\temp\staTest.txt';
varS: TSta;str: string;
beginS[0,0] := 'aaa';S[0,1] := 'bbb';S[0,2] := 'ccc';S[1,0] := '111';S[1,1] := '222';S[1,2] := '333';S[1,3] := '444';S.SaveToFile(nFileName);   //保存到文件S.Clear;str := S[0,0]; //空
//  ShowMessage(str);S.LoadFromFile(nFileName); //从文件读取str := S[0,0];    //aaastr := S.Rows[0]; //aaa;bbb;ccc
//  ShowMessage(str);
end;