写了一个字符串的二维表: TSta

STA 单元 (用到 System.SysUtils.TStringHelper):

------------------------------------------------------------------------------------------------------------------------------------------

unit STA;

interface

uses System.SysUtils, System.Classes;

type

  TSta = record

    FSeparator: 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;

begin

  SetLength(FArr, );

end;

constructor TSta.Create(const aStr: string; const aSeparator: Char);

var

  tArr: TArray<string>;

  i: Integer;

begin

  FSeparator := aSeparator;

  tArr := aStr.Split([sLineBreak], ExcludeEmpty);

  SetLength(FArr, Length(tArr));

  for i :=  to High(FArr) do

  begin

    FArr[i] := tArr[i].Split([FSeparator]);

  end;

end;

function TSta.GetItem(i,j: Integer): string;

begin

  Result := '';

  if (i < ) or (j < ) then Exit;

  if (i < Length(FArr)) and (j < Length(FArr[i])) then

    Result := FArr[i, j].Trim;

end;

procedure TSta.SetItem(i,j: Integer; Value: string);

var

  k,n: Integer;

begin

  if Value.Trim = '' then Exit;

  if Length(FArr) =  then FSeparator := ';';

  n := Length(FArr);

  if i >= n then

  begin

    SetLength(FArr, i+);

    for k := n to i -  do SetLength(FArr[k], );

  end;

  if j >= Length(FArr[i]) then SetLength(FArr[i], j+);

  FArr[i,j] := Value.Trim;

end;

function TSta.GetRow(i: Integer): string;

begin

  Result := '';

  if i < Length(FArr) then

  begin

    if Length(FArr[i]) >  then

      Result := Result.Join(FSeparator, FArr[i]);

  end;

end;

function TSta.GetRowCount: Integer;

begin

  Result := Length(FArr);

end;

procedure TSta.SetRow(i: Integer; Value: string);

var

  k,n: Integer;

begin

  if Value.Trim = '' then Exit;

  if Length(FArr) =  then FSeparator := ';';

  n := Length(FArr);

  if i >= n then

  begin

    SetLength(FArr, i+);

    for k := n to i -  do SetLength(FArr[k], );

  end;

  FArr[i] := Value.Split([FSeparator]);

end;

procedure TSta.SetRowCount(const Value: Integer);

begin

  SetLength(FArr, Value);

end;

procedure TSta.SetSeparator(const Value: Char);

begin

  FSeparator := Value;

  if Length(FArr) =  then SetLength(FArr, ); //直接使用索引赋值时, 会根据 Length(FArr) 是否为  来设置默认分隔符

end;

class operator TSta.Explicit(const aStr: string): TSta;

begin

  Result := TSta.Create(aStr);

end;

class operator TSta.Implicit(const aStr: string): TSta;

begin

  Result := TSta.Create(aStr);

end;

function TSta.ToString: string;

var

  i: Integer;

begin

  if Length(FArr) =  then Exit('');

  Result := Rows[];

  for i :=  to High(FArr) do

    Result := Result + sLineBreak + Rows[i];

end;

procedure TSta.LoadFromFile(const aFileName: string; aEncoding: TEncoding);

begin

  if not FileExists(aFileName) then Exit;

  if aEncoding = nil then aEncoding := TEncoding.Default;

  with TStringList.Create do begin

    LoadFromFile(aFileName, aEncoding);

    Self := Text;

    Free;

  end;

end;

procedure TSta.SaveToFile(const aFileName: string; aEncoding: TEncoding);

begin

  if aEncoding = nil then aEncoding := TEncoding.Default;

  with TStringList.Create do begin

    Text := Self.ToString;

    SaveToFile(aFileName, aEncoding);

    Free;

  end;

end;

end.

测试:

---

uses STA;

procedure TForm1.Button1Click(Sender: TObject);

var

  S: TSta;

  str: string;

begin

  S := 'AAA;BBB;CCC' + sLineBreak + '111;222;333'; //可以从字符串隐式或显式地转换到 TSta

  str := S[,];    //AAA

  str := S[,];    //

  str := S[,];    //越界读取返回空

  str := S.Rows[]; //AAA;BBB;CCC

  str := S.Rows[]; //;;

  str := S.ToString; //AAA;BBB;CCC

                     //;:

  S.Separator := '&'; //更换分隔符; 默认是分号; 也可在 Create 时指定

  str := S.Rows[];   //&&

  ShowMessage(str);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  S: TSta;

  str: string;

begin

  S[,] := 'aaa';

  S[,] := 'bbb';

  S[,] := 'ccc';

  S[,] := 'zzz';

  str := S.ToString; //aaa;bbb;ccc

                     //

                     //;;zzz

  S.Rows[] := '111;222;333';

  str := S.ToString; //aaa;bbb;ccc

                     //;;

                     //;;zzz

//  ShowMessage(str);

end;

procedure TForm1.Button3Click(Sender: TObject);

const

  nFileName = 'c:\temp\staTest.txt';

var

  S: TSta;

  str: string;

begin

  S[,] := 'aaa';

  S[,] := 'bbb';

  S[,] := 'ccc';

  S[,] := '';

  S[,] := '';

  S[,] := '';

  S[,] := '';

  S.SaveToFile(nFileName);   //保存到文件

  S.Clear;

  str := S[,]; //空

//  ShowMessage(str);

  S.LoadFromFile(nFileName); //从文件读取

  str := S[,];    //aaa

  str := S.Rows[]; //aaa;bbb;ccc

//  ShowMessage(str);

end;

http://www.cnblogs.com/del/