AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

BitBtns + array

Ein Thema von twityzuz · begonnen am 19. Mai 2011 · letzter Beitrag vom 19. Mai 2011
Antwort Antwort
twityzuz

Registriert seit: 3. Mai 2011
25 Beiträge
 
Delphi 7 Personal
 
#1

BitBtns + array

  Alt 19. Mai 2011, 14:23
Delphi-Version: 7
Hallo Leute!
Ich programmiere gerade ein Spiel, bei dem es darum geht, dass man auf verschiedene Felder eines Spielfelds kommt. Man spielt gegen einen Computer, bei dem ich jetzt mein Problem habe.
Die BitBtns bilden die Felder und den Status des jeweiligen BitBtns habe ich als String in einem Array gespeichert. Jetzt soll der Computer nachfragen, wo er noch hingehen darf (for- Schleife: Es gibt 48 Felder). Das erste Feld, was in seiner zugehörigen Arrayvariable 'Ja' stehen hat, wird genommen und der Computer soll dahin "gehen".
Frage: Der Computer weiß jetzt, welche Array- Variable es betrifft. Wie schaffe ich es jetzt, dass der Computer weiß, welches Feld ich zum Beispiel mit Btns[5] (BitButton5) meine?

Delphi-Quellcode:
for i:= 1 to 48 do
if Btns[i]='jathen
begin
Btns[i]='com'

Geändert von twityzuz (19. Mai 2011 um 14:27 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: BitBtns + array

  Alt 19. Mai 2011, 14:27
Einfachste Möglichkeit: deklariere das Array als Array eines Records, der den String und den BitBtn enthält.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
twityzuz

Registriert seit: 3. Mai 2011
25 Beiträge
 
Delphi 7 Personal
 
#3

AW: BitBtns + array

  Alt 19. Mai 2011, 14:30
Da ich noch Anfänger bin: Kannst Du mir erklären wie das geht?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: BitBtns + array

  Alt 19. Mai 2011, 14:43
Sicher:
Delphi-Quellcode:
type
  TDeinRecord = record
    Schrift: string;
    Button: TBitBtn;
  end;

  TDeinArray = array[1..48] of TDeinRecord;
Nun kannst Du über die Punkt-Notation das Array befüllen.
Delphi-Quellcode:
DeinArray[1].Schrift := 'Hallo Welt';
DeinArray[1].Button := BitBtn1;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
twityzuz

Registriert seit: 3. Mai 2011
25 Beiträge
 
Delphi 7 Personal
 
#5

AW: BitBtns + array

  Alt 19. Mai 2011, 14:46
Danke
  Mit Zitat antworten Zitat
twityzuz

Registriert seit: 3. Mai 2011
25 Beiträge
 
Delphi 7 Personal
 
#6

AW: BitBtns + array

  Alt 19. Mai 2011, 15:01
Wo muss ich das denn einfügen??
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: BitBtns + array

  Alt 19. Mai 2011, 15:03
Vor der Deklaration Deiner Array-Variablen, welche dann von dem gerade definierten Typ sein muss.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz