Set Of ?

[negaH]

Zitat:

mit der man jeden beliebigen String umwandeln kann, nicht von vornherein bei Delphi gibt?

Die Antwort ist ziemlich einfach: diese Funktionen nutzen statische Typ Deklarationen die zur Entwurfszeit der RTL überhaupt nicht bekannt waren. Sprich die Entwickler bei Borland kannten den Typ TName überhaupt nicht, wie sollen sie dann darauf reagieren ??

Die allgemeine Funktion in deinem Falle ist aber GetEnumValue() und GetEnumName() und TypeInfo(). Die Funktionen StrToName() und NameToStr() sind nur Funktionen die speziell auf den Typ TName abgestimmt wurden, und die generellen Funktionen kapseln.

Somit haben die Borlandentwickler genau das getan was du verlangtest, aber eben universell auf jeden möglichen zukünftigen Typ anwendbar.

Gruß Hagen

[Hansa]

Zitat von negaH:

...Interessant wird es jetzt mit "idiot" denn mit Hansas Vorschlag würde eine solche Doppeldeutigkeit zu Fehlern führen. Da eben "id" auch in "idiot" vorkommt.

Hatte das schon im Beitrag stehen (ohne Idiot) 8) und wieder gelöscht:

const namestring : ' comment name id idiot '; Man beachte die Leerzeichen. Denn hiermit wäre der Idiot unschädlich gemacht. Die Suchabfrage müßte natürlich auch noch geändert werden:

if pos (' ' + SuchString + ' ',namestring) <> 0;

[negaH]

@Hansa, darauf habe ich schon gewartet Trotzdem habe ich die Erfahrung gemacht das dies schief gehen kann, wenn der Programmierer selber diese Leerzeichen setzen muß. Es wurde vergessen oder der String selber wurde nicht ge'Trim()t.

Gruß Hagen

[Hansa]

Zitat von negaH:

@Hansa, darauf habe ich schon gewartet Trotzdem habe ich die Erfahrung gemacht das dies schief gehen kann, wenn der Programmierer selber diese Leerzeichen setzen muß...

hehe, darauf gewartet. War doch klar. 8) Jan hat gesagt, er beschäftige sich jetzt mal mit Typen. Natürlich kann er Deinen Code abkupfern und versteht ihn nicht richtig. Nach dem Motto: "es funktioniert und keiner weiß warum". Der Code ist übrigens in meiner privaten CodeLib gelandet, aber nicht für solche Fragen, wie hier.

Desweiteren sage ich nur PROCEDURE

[Jan]

Zitat von Hansa:

Jan hat gesagt, er beschäftige sich jetzt mal mit Typen. Natürlich kann er Deinen Code abkupfern und versteht ihn nicht richtig. Nach dem Motto: "es funktioniert und keiner weiß warum".

Hallo Hansa,
nein ich beschäftige mich nicht mit Typen, weil ich nicht schwul bin!
Ausserdem verstehe ich sehr wohl was der Quelltext soll, und auch wie er funktioniert, weil ich mir die Typinfo unit angeguckt habe.
Gruß
Jan

[Pseudemys Nelsoni]

ok, noch eine frage zu "Set Of"


wozu muss ich ein "Set" erstellen? kann ich nicht einfach einen aufzählungstyp checken? also z.b:

Delphi-Quellcode:

Type Tbla = (a,b,c,d,e,f)
var
  bla: TBla;
begin
  if (b in bla) then
  ShowMessage('jo')
end;

^^^^^^^^wieso kann ich nicht so prüfen ob ein bestimmter wert enthalten ist?

wieso muss ichs so machen?...

Delphi-Quellcode:

Type Tbla = (a,b,c,d,e,f)
Tirgendwas = Set Of Tbla;
var
  irgendwas: Tirgendwas;
begin
  if (b in irgendwas) then
  ShowMessage('jo')
end;

[Christian Seehase]

Moin Silent,

im ersten Falle ist bla vom Typ einer Aufzählung. Hier kannst Du nur auf Gleicheit prüfen (gleich einen Element der Aufzählung)
Im Zweiten Falle ist bla vom Typ einer Menge, also sozusagen, array of Aufzählung, und Du kannst prüfen, ob der gesuchte Wert darin enthalten ist.

Übrigens fehlt jeweils die Initialisierung von bla bzw. irgendwas, der Inhalt wäre also wohl zufällig.

[Phoenix]

Hrm? Die "TypInfo" kannst Du Dir bei Deinem D7 aber nicht angeguckt haben. Da heisst die Unit nämlich "Types".

Das weiss ich auch eigener leidlicher Erfahrung mit der RTTI und verschiedenen Delphi-Versionen *seufz*.