AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Set durchsuchen

Ein Thema von xZise · begonnen am 3. Jul 2009 · letzter Beitrag vom 3. Jul 2009
Antwort Antwort
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

Set durchsuchen

  Alt 3. Jul 2009, 21:47
Hallo ihr,

ich habe ein Set einer Enumeration
Delphi-Quellcode:
type
  TEnum = (eA, eB, eC);
  TEnums = set of TEnum;
Nun habe ich eine Methode, die je nach Enum-Wert verschieden reagiert und eine Methode mit dem Set:
Delphi-Quellcode:
procedure DoSomething(AEnum : TEnum);
procedure DoSomethingOther(AEnums : TEnums);
Wie kann ich nun in "DoSomethingOther" die Einträge in AEnums durchgehen und mit DoSomething aufrufen?

Also sowas in der der Art:
Delphi-Quellcode:
for i := 0 to Length(AEnums) - 1 do
  DoSomething(AEnum[i]);
Ich könnte natürlich das umständlich machen, aber dass ist an sich ja ziemlich umständlich
Delphi-Quellcode:
if eA in AEnums then
  DoSomething(eA);

...
MfG
xZise
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#2

Re: Set durchsuchen

  Alt 3. Jul 2009, 21:50
Delphi-Quellcode:
type
  TEnum = (eA, eB, eC);
  TEnums = set of TEnum;

procedure DoIt(const ASet: TEnums);
var
  lIndex: TEnum;
begin
  for lIndex := low(TEnum) to high(TEnum) do
  begin
    if lIndex in ASet then
      DoSomething(lIndex);
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Set durchsuchen

  Alt 3. Jul 2009, 22:48
Danke,
damit funktioniert es.

MfG
xZise
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Set durchsuchen

  Alt 3. Jul 2009, 22:51
Hallo,

ich hätte noch eine Ergänzung:

Delphi-Quellcode:
procedure DoItAgain(const ASet: TEnums);
var
  lIndex: TEnum;
begin
  for lIndex in ASet do
    DoSomething(lIndex);
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 19:05 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