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;
//国外看到得片段。
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.04878306388855 seconds