Tratando alerta - Variável pode não ser inicializada

[bnobre]

Olá a todos,

Estou com o seguinte código

procedure ...
var
  jsonValue: TJSONValue;
begin
   try
     RESTRequest1.Method := rmPOST;
     RESTRequest1.Resource := '';
     RESTRequest1.Params.ParameterByName('body').Value := jsonInsert;
     RESTRequest1.Execute;
     jsonValue := TJSONObject.ParseJSONValue(RESTResponse1.Content);
     inseridos := jsonValue.GetValue<integer>('result');
  finally
     jsonValue.Free;
  end;
end;

Bem, com esse código recebo o alerta abaixo:

[dcc32 Warning] Unit1.pas(236): W1036 Variable 'jsonValue' might not have been initialized

Até tudo bem, pois sei que o alerta surgiu pelo fato de eu não ter inicializado ela antes do try.

Então coloquei o seguinte comando antes:

jsonValue := nil;

Com isso o alerta sumiu...

Mas existe alguma forma mais "recomendável" de inicializar essa variável?

Desde já agradeço a atenção

 

[Juliomar Marchetti]

é que tu colocou um try finally

ele espera que antes de try tenha a inicialização dela.

neste caso tu recebe de uma conversão

ela deveria ter o try a partir do momento que você popula ela. pois se tu seta nil e der algum erro antes de tu pegar ela vai gerar A.V.

pois vai tentar destruir um nil

[bnobre]

RESTRequest1.Method := rmPOST;
RESTRequest1.Resource := '';
RESTRequest1.Params.ParameterByName('body').Value := jsonInsert;
RESTRequest1.Execute;
jsonValue := TJSONObject.ParseJSONValue(RESTResponse1.Content);
try
  inseridos := jsonValue.GetValue<integer>('result');
finally
  jsonValue.Free;
end;

Tipo assim?

[Juliomar Marchetti]

2 horas atrás, bnobre disse:

RESTRequest1.Method := rmPOST;
RESTRequest1.Resource := '';
RESTRequest1.Params.ParameterByName('body').Value := jsonInsert;
RESTRequest1.Execute;
jsonValue := TJSONObject.ParseJSONValue(RESTResponse1.Content);
try
  inseridos := jsonValue.GetValue<integer>('result');
finally
  jsonValue.Free;
end;

Tipo assim?

Issso mesmo pois a variavel só entra nesse contexto