Téma: Borland Delphi

Régen delphit tanultam, most visszatérnék hozzá egy feladat erejéig, de rájöttem hogy sokat felejtettem....
Pár editből tennék tömbbe elemeket.

Kód:

for i:= 1 to 9 do
  begin
    for j:= 1 to 9 do
      begin
       szamok[i, j]:=Edit + 'inttostr(i)' + 'inttostr(j)';
      end;
  end;

Tudom hogy ez így nem túl jó, de valahogy így szeretném megoldani. Vagy valami hasonló, de működő módszerrel.

hatasu eredeti hozzászólása

Régen delphit tanultam, most visszatérnék hozzá egy feladat erejéig, de rájöttem hogy sokat felejtettem....
Pár editből tennék tömbbe elemeket.

Kód:

for i:= 1 to 9 do
  begin
    for j:= 1 to 9 do
      begin
       szamok[i, j]:=Edit + 'inttostr(i)' + 'inttostr(j)';
      end;
  end;

Tudom hogy ez így nem túl jó, de valahogy így szeretném megoldani. Vagy valami hasonló, de működő módszerrel.

Pontosabban írd le mit szeretnél! Az Edit-ek hogy keletkeznek? A dinamikusan hozod létre őket, vagy felpakolod a form-ra?

Hű! Két megjegyzés előljároan:
- Ez már elve gáz! :-) Jobb lenne dinamikusan létrehozni őket, mert így a megoldás csak gány lehet.
- Nincs fönt a gépemen delphi, így amit írni fogok elméletileg jó csak.

Kód:

for i:= 1 to 9 do
begin
    for j:= 1 to 9 do
    begin
         for k:=0 to form.controlcount-1 do
         begin
              if form.controls[k].name = 'Edit' + inttostr(i) + inttostr(j) then
                   szamok[i, j] := TEdit(form.controls[k]).value; 
         end;
    end;
end;

Magyarázat: Még egy ciklus kell és a form 'controls' vagy 'compontets' tömbjéből név szerint beazonosítod a kontrolt. Azt hiszem, hogy 'name' tulajdonságban ez van, de ha nem ebben, akkor valami hasonlóban megtalálod az általad adott nevet. Az értékadásnál pedig elöbb TEdit típusra alakítod a kontrolt, majd a 'value'-t szintén típusegyeztetned kell a tömböddel.

-----------------------------
Szebb lenne, ha egy tömbbe dinamikusan hoznád létre az Edit-eket, mert akkor tudnád címezni őket, nem kellene taknyolni. De nem akarlak rábeszélni, mert így is működhet.