(Resolvido) Usando ponteiro na função

[Paulo Henrique de Assis]

Olá pessoal.

Gostaria em saber se é possível trabalhar com ponteiro da seguinte maneira:

function TForm1.fValor(Teste: string): integer;

var pvalor: ^String;

begin

pvalor := @teste;

pvalor^ := 'Retorno';

Result:=1;

end;

Quando for chamar a função, no evento do click do botão eu declaro uma variavel com o nome Valor do tipo String, conforme abaixo:

procedure TForm1.Button3Click(Sender: TObject);

var Valor : String;

begin

fValor(Valor);

end;

Quando eu executar a função eu gostaria em passar o valor do ponteiro pValor, que seria 'Retorno' para a minha variavel Valor do evento do botão!

Do jeito que está, acontece a seguinte situação: quando estou debugando dentro função a minha variavel Valor recebe o 'Retorno', mas quando saio da função a minha variavel Valor simplismente zera!

OBS: não quero inserir o var da assinatura da função (function TForm1.fValor(var Teste: string): integer).

Gostaria em saber aonde estou errando??

T+

[Jhonas]

maneira correta:

function TForm1.fValor(Teste: string): integer;
var pvalor: ^String;
begin
   Teste := '123';
   pvalor := @Teste;
   Result := strtoint(pvalor^);
end;

procedure TForm1.Button2Click(Sender: TObject);
var Valor : string;
begin
   showmessage(inttostr(fValor(Valor)));
end;

abraço