Ovládání těch kterých obrázků, podle obsahu proměnné – Delphi – Fórum – Programujte.com

ProsímVás poraďte mi, mám komponenty Edit, Imagy s názvy A1 až A20, a potřeboval bych vedet jak mam udelat, abych v cyklu, kde při každém opakování by mělo jít ovládat další obrázek z řady, ale abych nemusel zdlouhavě psát

 Repeat

AKTUALNI_PISMENO := MidStr(TEXT.TEXT,START,CIL);

  if jsi tu poprvé then begin

    if AKTUALNI PISMENO :=  'A' then A1.Picture.LoadFromFile('A.bmp');

    // a tak dále až do Ž...

  end;



  if jsi tu poprvépodruhé then begin

    if AKTUALNI PISMENO :=  'A' then A2.Picture.LoadFromFile('A.bmp');

    // a tak dále až do Ž

  end;



  // a takhle celé jednotlivě dál až do dvaceti... :-(

until if...

 

Repeat

AKTUALNI_PISMENO := MidStr(TEXT.TEXT,START,CIL);

 if jsi tu poprvé then OVALADANY_OBRAZEK := 'A1';

 if jsi tu podruhe then  OVLADANY_OBRAZEK := A2; // atd až do 20

 ...

 if AKTUALNI_PISMENO := 'A' then OVLADANY_OBRAZEK.Picture.LoadFromFile('A.bmp')

 if AKTUALNI_PISMENO := 'B' ... // atd až do Ž

until if...

co hodit edity do pole a pak ovladat jen podle indexu

Já z polema ještě moc neumím, nemohl bys mi trošku naznačit jak přesně to myslíš? Díky