Edit com ponteiro para String � poss�ve?

Question

Ol� Pessoal,Estava querendo criar um componente Edit que n�o contesse uma string e sim um ponteiro para string, pois quando a vari�vel fosse alterado logo seria alterado tmb o conte�do que este edit e...

Beppe · Answer

N�o entendo o porque disso, afinal se voc� mudar via ponteiro, poderia bem fazer via o modo tradicional:

Um_Ponteiro_Pra_String^ := �Outro texto�;

Edit1.Text := �Outro texto�;

Mcis33 · Answer

A raz�o para eu querer fazer isso � que o texto destes Edit ir�o mudar de acordo com vari�veis e eu gostaria que isso fosse de modo autom�tico, pois durante a execu��o do programa os dados nessas vari�veis ir�o mudar diversas vezes, e eu n�o gostaria de ficar mudando o conte�do dos Edits atrav�s de uma fun��o toda vez que alterasse os dados nas vari�veis... al�m do mais, como no formul�rio existem diversos Edits eu n�o precisaria preecher todos, evitando o preenchimento com dados j� existentes no Edit... claro que poderia fazer um if, mas ainda acho que a id�ia do Ponteiro � melhor... pois em todo programa eu poderia setar os endere�os de mem�ria e quando alterar qualquer vari�vel, automaticamento todos os dados ser�o atualizados pelo programa.

[]�s,

mcis33.

Beppe · Answer

Esse trecho j� tinha postado h� uns dias, n�o alterei nada:

TForm1 = ... 
private 
  FChave: Integer; 
  procedure SetChave(Value: Integer); 
public 
  property Chave: Integer read FChave write SetChave; 
end; 
... 
procedure TForm1.SetChave(Value: Integer); 
begin 
  if (FChave = 1) and (Value = 2) then 
  begin 
  // coloca c�digo que executa quando mudou de 1 para 2 
  end; 
  FChave := Value; 
end;

Pra cada vari�vel cria uma propriedade com um campo private e um m�todo set. Sempre que o set � chamado voc� muda o edit correspondente.

F�rum Edit com ponteiro para String � poss�ve? #211778