Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Set Of's verbinden (https://www.delphipraxis.net/91917-set-ofs-verbinden.html)

silentAMD 11. Mai 2007 22:08


Set Of's verbinden
 
hi,
ist es möglich set's zu verbinden? ich möchte


Delphi-Quellcode:
  MATH_PLUSMINUS: set of Char = ['+','-'];
  MATH_MULTIDIVI: set of Char = [Chr(183),':'];
in einem "set of Char" vereinen... falls möglich: wie?


PLEASE HELP!!

himitsu 11. Mai 2007 22:30

Re: Set Of's verbinden
 
da gibt es erstmal so Funktionen wie Include und Exclude, oder bei ganzen Sets funktioniert auch +, - und * :zwinker:

Delphi-Quellcode:
Set1 = [1, 2, 3, 4];
Set2 = [3, 4, 5, 6];

Set1 + Set2 = [1, 2, 3, 4, 5, 6]
Set1 - Set2 = [1, 2]
Set1 * Set2 = [3, 4]
+ : 1 und 2 verbinden
- : alles in 2 (was in 1 existiert) aus 1 entfernen
* : gleiches aus 1 und 2 zurückgeben

3_of_8 11. Mai 2007 22:37

Re: Set Of's verbinden
 
Statt Chr(183) kann man übrigens auch #183 schreiben, sieht IMHO schöner aus. ;)

himitsu 11. Mai 2007 22:40

Re: Set Of's verbinden
 
Zitat:

Zitat von 3_of_8
Statt Chr(183) kann man übrigens auch #183 schreiben, sieht IMHO schöner aus. ;)

oder '·' was noch schöner ist.

hab dieses Zeichen ja auch in einigen meiner Programme :angel:

silentAMD 11. Mai 2007 23:47

Re: Set Of's verbinden
 
hi, danke, aber es funktioniert nicht!!!


Delphi-Quellcode:
  MATH_ALLOWED: set of Char = (MATH_PLUSMINUS+MATH_MULTIDIVI);

es kommt folgender fehler:

Code:
[Pascal Fehler] uFacharbeitHilfsfunktionen.pas(27): E2026 Konstantenausdruck erwartet

Hawkeye219 11. Mai 2007 23:53

Re: Set Of's verbinden
 
Hallo,

versuche es einmal so:

Delphi-Quellcode:
const
  MATH_PLUSMINUS = ['+','-'];
  MATH_MULTIDIVI = [Chr(183),':'];
  MATH_ALLOWED  = MATH_PLUSMINUS + MATH_MULTIDIVI;
Gruß Hawkeye

himitsu 12. Mai 2007 02:40

Re: Set Of's verbinden
 
Theoretisch so (ohne Klammern),
Delphi-Quellcode:
const MATH_PLUSMINUS: Set of Char = ['+', '-'];
  MATH_MULTIDIVI:    Set of Char = [#183, ':'];
  MATH_ALLOWED:      Set of Char = MATH_PLUSMINUS + MATH_MULTIDIVI;
Allerdings ist es schwer (bis unmöglich) typisierte Konstanten so in anderen Kostantendefinitionen zu verwenden,
also einfach Hawkeye219's Variante verwenden.

Dies geht aber och noch:
Delphi-Quellcode:
const MATH_PLUSMINUS = ['+', '-'];
  MATH_MULTIDIVI    = [#183, ':'];
  MATH_ALLOWED: Set of Char = MATH_PLUSMINUS + MATH_MULTIDIVI;

DGL-luke 12. Mai 2007 08:39

Re: Set Of's verbinden
 
hallo himitsu,

vielleicht liegts an meinem hangover, aber wo ist der unterschied zwischen deinen beiden code-schnipseln?

EDIT: gesehen... :drunken:


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:51 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