Mesmo que exista uma gambiarra (o que eu duvido muito) que serialize identificadores locais em String
, a proposta abaixo é mais simples e (em minha opinião) mais elegante.
interface
uses Vcl.Dialogs, Classes;
type
TMyArray = array[0..4] of String;
TStringHash = class
private
FKeys : TStringList;
FValues : Array of TMyArray;
function GetContent(Key: String; Index : Integer): String;
procedure SetContent(Key : String; Index : Integer; Value: String);
public
property Contents[Key : String; Index : Integer] : String read GetContent write SetContent; Default;
constructor Create;
function Count : Integer;
end;
implementation
constructor TStringHash.Create;
begin
inherited;
FKeys := TStringList.Create;
FKeys.Add('');
SetLength(FValues, 1);
FValues[0][0] := '';
end;
function TStringHash.Count: Integer;
begin
Result := FKeys.Count;
end;
function TStringHash.GetContent(Key: String; Index : Integer) : String;
var
I : Integer;
begin
Result := '';
I := FKeys.IndexOf(Key) ;
if I > -1 then
Result := FValues[I][Index];
end;
procedure TStringHash.SetContent(Key : String; Index : Integer; Value: String);
var
I : Integer;
begin
I := FKeys.IndexOf(Key) ;
if I > -1 then
FValues[I][Index] := Value
else
begin
SetLength(FValues, Length(FValues) + 1);
FValues[Length(FValues) - 1][Index] := Value;
FKeys.Add(Key);
end;
end;
Para a utilização basta instanciar TStringHash
com a linha a seguir MinhaHash := TStringHash.Create;
.
E para manipular valores use: Valor := MinhaHash['NomeVar', 0];
e MinhaHash['NomeVar', 0] := Valor;
.
Exemplo
Crie um arquivo Test.dpr. Dê um duplo clique (supondo que você tem o Delphi Instalado) e após o Delphi abrir o arquivo cole o (conteúdo) e compile (F9).
Hash
, mapeando de um nome de variável para oarray
correspondente.