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执行cmd命令

Delphi 一行关键代码阻止360云查杀

Delphi串口api函数

Delphi共享软件防破解的实用方法

tstringlist 常用操作

Delphi 判断操作系统是否是64位的函数

Delphi利用文件流把文件拆分与合并

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi 判断是否是0-9数字

Delphi 加载大文件显示进度条

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

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