AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi mehrere Elemente in einer Schleife bearbeiten
Thema durchsuchen
Ansicht
Themen-Optionen

mehrere Elemente in einer Schleife bearbeiten

Ein Thema von Wilder · begonnen am 12. Mär 2004 · letzter Beitrag vom 10. Mär 2013
Antwort Antwort
Seite 2 von 2     12   
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 8. Mär 2013, 13:59
Übernimm mal den kompletten Code, der stimmt nämlich so!
Markus Kinzler
  Mit Zitat antworten Zitat
Spectre

Registriert seit: 29. Jan 2013
Ort: Hamburg
65 Beiträge
 
Delphi XE2 Architect
 
#12

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 8. Mär 2013, 17:07
hab ich grad probiert, allerdings meckert er bei den hotspots bei low/high dann bzw er bez. sie als undefiniert

ich bin mir nicht sicher ob das Arrays sind. Die hotspots sind bereiche die ich auf dem hotspotimage(ner komponente) anklickbar gemacht habe und denen ich verschiedenen eigenschaften zuweisen kann.

edit: ansprechen tue ich die hotspots via: hotspotimage.hotspots[1].hovercolor:= clwhite;

zum bsp

Geändert von Spectre ( 8. Mär 2013 um 17:15 Uhr)
  Mit Zitat antworten Zitat
Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#13

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 8. Mär 2013, 17:27
Hallo,

Zitat:
Delphi-Quellcode:
procedure Tworldmapsource.FormCreate(Sender: TObject);
var i : integer;
begin
for i:=low(1) to high(5) do
  THotSpot(FindComponent('Hotspots[i]')).HoverColor := clwhite;

end;
Das kann doch nicht funktionieren oder hast Du eine Component, die Hotspot[i] heißt? Versuch mal
Delphi-Quellcode:
  c := THotSpot(FindComponent('Hotspots[' IntToStr (i) ']'));
  if Assigned (c) and (c is THotSpot) then
    c.HoverColor := clwhite;
Gruß
Volker Zeller
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#14

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 8. Mär 2013, 18:03
Delphi-Quellcode:
var
 i:Integer;
begin
  for I := 0 to HotSpotImage1.HotSpots.Count - 1 do
     Showmessage(IntToStr(HotSpotImage1.HotSpots[i].ID) +' - '+ HotSpotImage1.HotSpots[i].Name);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Spectre

Registriert seit: 29. Jan 2013
Ort: Hamburg
65 Beiträge
 
Delphi XE2 Architect
 
#15

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 8. Mär 2013, 18:06
danke! bin gerade auf der arbeit aber ich teste das heute abend aus wenn ich @ home!
  Mit Zitat antworten Zitat
Spectre

Registriert seit: 29. Jan 2013
Ort: Hamburg
65 Beiträge
 
Delphi XE2 Architect
 
#16

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 9. Mär 2013, 01:01
danke Bummi...

Code:
var
 i:Integer;
begin
  for I := 0 to Hsiafrika.HotSpots.Count - 1 do
     hsiafrika.HotSpots[i].HoverColor:= clwhite;
problem gelöst & wieder was dazu gelernt..

danke euch allen!


edit: aber wie funktioniert das?

for i := 1 to 10 do..verstehe ich, aber

0 to Hsiafrika.HotSpots.Count - 1

hmm..wieso MINUS 1? und wieso werden dann alle verfügbaren hotspots durchlaufen? wird das hochgezählt? wenn ja wo ist stop? Ich möchte das verstehen.

Geändert von Spectre ( 9. Mär 2013 um 01:15 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#17

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 9. Mär 2013, 01:58
Wenn du 10 Elemente hast (Count) und das erste Element mit Index 0 beginnt, dann schreib dir doch mal auf einem Blatt alle Indizes der Elemente auf (Kleiner Tipp, zähl beim Schreiben mit)

Wenn du alles richtig gemacht hast, dann verstehst du auch das -1






Lösung: 0,1,2,3,4,5,6,7,8,9
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Spectre

Registriert seit: 29. Jan 2013
Ort: Hamburg
65 Beiträge
 
Delphi XE2 Architect
 
#18

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 9. Mär 2013, 23:16
ah...also der zehnte hotspot hat dann index 10 und es wird RUNTER gezählt bis 0 mit -1 anstatt hoch?
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#19

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 9. Mär 2013, 23:23
nimm die Finger und fange bei 0 an zu zählen ...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#20

AW: mehrere Elemente in einer Schleife bearbeiten

  Alt 10. Mär 2013, 02:26
ah...also der zehnte hotspot hat dann index 10 und es wird RUNTER gezählt bis 0 mit -1 anstatt hoch?
In meinem Beitrag ist sogar die Lösung enthalten
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


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 12:33 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