Delphi TArray<TArray<string>> 用法

本文整理自网络，侵删。

 
uses Generics.Collections, Generics.Defaults;
function ParseStyles(const style: string): TArray>;
var
  sa, sa2: TArray;
  I: Integer;
begin
  if style = '' then
    SetLength(Result, 0, 0);
  sa := style.Split([';']);
  SetLength(Result, Length(sa), 2);
  for I := 0 to High(sa) do
  begin
    sa2 := sa[I].Split([':']);
    if Length(sa2) = 2 then
    begin
      Result[I, 0] := sa2[0];
      Result[I, 1] := sa2[1];
    end;
  end;
end;

function GetStyle(const key: string; const styles: TArray>): string;
var
  I: Integer;
begin
  for I := 0 to High(styles) do
  begin
    if styles[I,0] = key then
    begin
      Exit(styles[I, 1]);
    end;
  end;
  Result := '';
end;

procedure TForm16.FormCreate(Sender: TObject);
begin
caption:=GetStyle('红色',ParseStyles('红色:红色路径'));
end;

//国外看到得片段。
 

相关阅读 >>

Delphi tstringlist utf8编码保存并开启bom

Delphi产生不重复随机数的算法

Delphi将dbgrid数据导出到excel表中

Delphi xe8 androdi利用httpclient实现的一个app自动更新组件

Delphi调节音量及静音

Delphi 把整个窗体保存为图片的方法

Delphi中httpencode使用注意事项

Delphi想tstringgrid中添加和删除行的方法

Delphi tdirectory

Delphi 获取access中的表名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TArray<TArray<string>> 用法