Moze to ci pomoze:
W sekcji public formularza:
Komp:TComponent;
function Komponent(Nazwa:string):TComponent;
w sekcji implementation modulu:
function TForm1.Komponent(Nazwa:string):TComponent;
var
I:Integer;
begin
for I:=0 to ComponentCount-1 do
if Components[I].Name=Nazwa then begin
Result:=Components[I];
Komp:=Components[I];
end;
end;
przyklad wykorzystania przy wcisnieciu przycisku:
procedure TForm1.Button1Click(Sender: TObject);
var
S,T:String;
begin
T:='Delphi';
S:='Edit'+Label1.Caption;
TEdit(Komponent(S)).Text:=T;
end;
Na podstawie zawartosci Labela tworzony jest lancuch z nazwa
odpowiedniego Edita i za pomoca funkcji Komponent zmieniany
jest jego Text.
Musisz jednak uwazac zeby jak masz na formularzu 5 Editow nie wpisywac
czegos do np. 25 bo ci bledzik wyskoczy ;-)
Mam nadzieje ze o to chodzilo. Nie sprawdzalem tego dokladnie ale przy odwrotnej sytuacji (tzn.
5 labeli i ich nazwe pobieralo z 1 edita) dzialalo.
Korzystalem z faq Michała Ogłódka.
--Pozdrawiam
Ojciec