Vrednost spremenljivke od spremenljivke

Vse drugo, kar ne spada v nobeno zgornjo kategorijo.
Odgovori
herc
Prispevkov: 2
Pridružen: 29.06.2005 20:12:07

Vrednost spremenljivke od spremenljivke

Odgovor Napisal/-a herc » 05.07.2010 15:19:46

Zdravo... eno noobovsko vprašanje...
Na formi imam recimo 20 editov (npr. Podatek1 ... Podatek20), ki jih moram pofilat s podatki.
A lahko ime edita skreiram v eno spremenljivko (recimo kot je spodaj v kodi) in potem preko te spremenljivke ji določim novo vrednost?
ali pa recimo obratno, da imam ime spremenljivke od katere hočem vrednost, a lahko skreiram najprej ime in potem probam dobit vrednost iz nje?
Da mi ni potrebno delat Case / If stavka.

Koda: Izberi vse

var
  v: array[1..20];
  i:integer;
  a:string;
...
for i:=1 to 20 do
begin
  s:=Trim(IntToStr(i));
  a:='Podatek'+s+'.Text';  (* skreiram ime spremenljivke v 'a' ... npr: 'Podatek1.Text' *)  
  ??? &a ??? := v[i];      (* v skreirano ime npr. 'Podatek1.Text' bi sedaj vpisal vsebino... je mogoče izvest ??? *)
...
end; 

Miha-R
Prispevkov: 2155
Pridružen: 14.05.2001 21:29:53

Vrednost spremenljivke od spremenljivke

Odgovor Napisal/-a Miha-R » 05.07.2010 16:19:59

Uporabi funkcijo FindComponent, da najdeš točno določeno komponento (edit) na tej formi, potem naredi typecast in dodeli vrednost v Text property. Če napišem kodo na pamet, je videti približno takole:

Koda: Izberi vse

for i := 1 to 20 do
  ((FindComponent(Format('Podatek%d', [i])) as TEdit).Text := v[i];
Vedno sem želel napisati prav tak odgovor.

herc
Prispevkov: 2
Pridružen: 29.06.2005 20:12:07

Vrednost spremenljivke od spremenljivke

Odgovor Napisal/-a herc » 06.07.2010 14:20:53

thx ... you rocks
kok je simpl k enkrat vidš :D

Odgovori