0

Tenho 50 váriaveis do tipo array e tenho um método que vai receber uma String contendo um nome de uma váriavel existente. Gostaria de saber qual é a forma ideal para identificar o valor da String recebida como uma das 50 váriaveis declaradas no programa.

Aqui está uma das 50 nomenclaturas de váriaveis:

var
x:array[1..4] of String;

Aqui está o método:

procedure IdentificarVariavel(s:String); 
begin
     //
     // tratar o valor da String s recebida como váriavel x;
     //
end;

Preciso tratar o valor da String s como uma váriavel. OBS: não gostaria de criar um case.

14
  • Tenho quase certeza que existe uma forma menos complicada de fazer o que você está querendo fazer. Commented 29/10/2014 às 13:18
  • O único jeito que tenho em mente no momento, porém não ideal é fazendo um case e associando cada valor recebido.
    – Corvo
    Commented 29/10/2014 às 13:20
  • A intenção seria "converter" esse valor da String, passando a reconhecê-lo como a váriavel declarada.
    – Corvo
    Commented 29/10/2014 às 13:21
  • 1
    Porquê não usar um array of array [1..4] of string? Commented 29/10/2014 às 13:28
  • 2
    Utilize um Hash, mapeando de um nome de variável para o array correspondente. Commented 29/10/2014 às 15:54

1 Resposta 1

2

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).

1
  • Murilo, se a resposta não esclareceu a dúvida, comente quando puder, por favor.
    – Guill
    Commented 10/11/2014 às 11:43

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .