Hra hledani brambor – Delphi – Fórum – Programujte.com

TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Trvalé přihlášení

Zapomněl jsi heslo?

Hra hledani brambor – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

16:58, Photoshop Jak odstranit (potlačit) odlesky

Stavba Laser Arény
Laser Game Brno

Hra hledani brambor

Toto vlákno bylo označeno za vyřešené — příspěvek s řešením.

dyžon 0

Stálý člen

4. 10. 2012 #1

Zdravim, na rychlo vytvarim pro syna kolegyne jednu takovou jednoduchou hru, mozna ji znate, jde o to najit podle ciselnych rad spravny policka .. radsi vlozim obrazek:

vsechno jsem uz osetril a funguje jen posledni vec a to,kdyz oznaci krizkem spatne pole, hra konci jako neuspech a ja bych potreboval vsem tlacitkum vyprazdnit caption. Pouzil jsem SpeedButtony,protoze ji budu mozna vylepsovat,tak abych tam mohl jednoduse nasazet nejaky obrazky a podobne, to je jedno na funkci nemam vliv.
na smazani jsem si napsal tohle:

var a: array[1..100] of TSpeedButton;
    b: integer;
begin
  ShowMessage( 'Špatně !!!' +#13+' Začni znova ');
  for b := 1 to 100 do
  begin
  a[b].Caption:='';
  end;
end;

jenze mi to haze chybu, ze neco znasilnuju na adrese blabla ...
poradite mi prosim co je spatne ??

dekuji

Nahlásit jako SPAM

IP: 89.102.38.–

KIIV

~ Moderátor

+43

God of flame

4. 10. 2012 #2

a kdy to pole inicializujes? je tam jen hromada objektu mozna i s necim jako defaultni inicializace, ale to neznamena ze to bude fungovat (a uz vubec ze to odkazuje na ty co mas zobrazeny)...

Nahlásit jako SPAM

IP: 94.112.32.–

_{Program vždy dělá to co naprogramujete, ne to co chcete...}

dyžon 0

Stálý člen

5. 10. 2012 #3

#2 KIIV

jj, presne tohle jsem si myslel ..
ze to bude zase neco, o cem vim uplny prd.

myslel jsem, ze ve

var a: array[1..100] of TSpeedButton

priradim promenne (a) vsechny speedbuttony od 1 do 100 a pak je muzu postupne menit.
v navodech a knihach co mam se pouziva array[x..y] celkem casto,ale vetsinou of Integer; a tam o zadne inicializaci neni psano.
zadnej kod, kde by bylo pole z komponent jsem nikde nenasel.
jakou inicializaci mam teda jeste provest ?

Nahlásit jako SPAM

IP: 89.102.38.–

KIIV

~ Moderátor

+43

God of flame

5. 10. 2012 #4

no a kde je mas nadefinovany (ty co se opravdu zobrazi)? technicky vzato se daj vyrobit dynamicky po startu.. mit pole ukazatelu, ty potom jednotlive nainicializovat (vytvorit, nastavit velikost, pozici a tak)

Nahlásit jako SPAM

IP: 62.216.147.–

_{Program vždy dělá to co naprogramujete, ne to co chcete...}

dyžon 0

Stálý člen

5. 10. 2012 #5

Nejlepší odpověď

#4 KIIV
no prave kvuli tomu, ze nektery maji jiny vlastnosti,tak bych stejne musel nejak odlisit, takze jsem je tam nasazel rucne ...
je mi jasny, ze to neni uplne dobra varianta a jeste si s tim pohraju, ale ted jsem potreboval na rychlo vytvorit par prvnich prikladu, takze tak ..
dekuju za nakopnuti, nakonec jsem vsech 100 speedbuttonu hodil na panel a s malou pomoci napsal toto:

var    b: integer;
begin
  ShowMessage( 'Špatně !!!' +#13+' Začni znova ');

    for b:= 0 to Panel1.ControlCount-1 do
    if (panel1.Controls[b] is TSpeedButton) then
    TSpeedButton(panel1.Controls[b]).Caption:='';
end;

funguje to a je to jednoduchy

Nahlásit jako SPAM

IP: 89.102.38.–

← Zpět na seznam vláken ← Zpět do Fóra