Tenho uma String:
var
vMinhastring : string;
begin
vMinhastring := 'Edit1';
No meu form eu tenho um Compomente Tedit com o name Edit1. Como eu passo algum valor pro meu Edit1, utilizando o a vMinhastring como nome do Componente?
vMinhastring.text := 'batatinha';
Estou Tentando fazer assim, mas estou tendo problemas:
contElem := 1;
Rdb1:= TRadioGroup.Create(TabSheet1);
Rdb1.Parent:= TabSheet1;
Rdb1.OnExit := Validacao;
Rdb1.Name:='Rdb'+IntToStr(contElem);
Rdb1.Items.Add('C');
Edit := TMaskEdit.Create(TabSheet1);
Edit.Parent:= TabSheet1;
Edit.Name:='Edit'+IntToStr(contElem);
Edit.Clear;
Edit.EditMask := ('!99;1;');
contElem := 2;
Rdb1:= TRadioGroup.Create(TabSheet1);
Rdb1.Parent:= TabSheet1;
Rdb1.OnExit := Validacao;
Rdb1.Name:='Rdb'+IntToStr(contElem);
Rdb1.Items.Add('C');
Edit := TMaskEdit.Create(TabSheet1);
Edit.Parent:= TabSheet1;
Edit.Name:='Edit'+IntToStr(contElem);
Edit.Clear;
Edit.EditMask := ('!99;1;');
Criei uma procedure:
procedure TFCad_AnaliseDeTendencias.Validacao(Sender: TObject);
var
name, name2 :string;
i : integer;
begin
name := TRadioGroup(Sender).Name;
name2 := '';
for i := 1 to Length(name) do
begin
if name[i] in ['0'..'9'] then
name2 := name2 + name[i];
end;
name2 := 'Edit'+name2;
TMaskEdit(FindComponent(name2)).Text := '01'; //Esta dando erro aqui.
end;
Está dando erro de
Access violation at address
Edit1.Text = vMinhastring
; ?