Set Of ?

[Christian Seehase]

Moin Jan,

Zitat von Jan:

Da habe ich einen String, der exakt den gleichen Wert hat wie der Name eines Teils meines Sets, und ich soll nicht festellen kann, ob der Name in dem Set vorhanden ist?

Das klingt schon anders. Vorher sah es nach einem Set of Strings aus, und dass wäre wohl nur über eine Hashfunktion und grosse Lücken im Set, die dann mit Dummys gefüllt werden müssten machbar.

Dazu brauchst Du die Toolsapi (Standardmässig nicht im Suchpfad von Delphi enthalten).

Ich hatte auch mal ein Beispiel dazu.
Da muss ich aber erst einmal suchen, wo ich das hab'

[EDIT]
@Hansa:

Zitat von Hansa:

Wie wärs denn mal zur Abwechslung mit einer verketteten Liste ?

Den Witz versteht aber nicht jeder
[/EDIT]

[Jan]

Zitat:

Den Witz versteht aber nicht jeder

Ich zum Beispiel nicht.

Zitat:

Dazu brauchst Du die Toolsapi (Standardmässig nicht im Suchpfad von Delphi enthalten).

Ich hatte auch mal ein Beispiel dazu.
Da muss ich aber erst einmal suchen, wo ich das hab'

Das klingt ja geradezu phantastisch, erzähl mir mehr
Gruß
Jan

[Christian Seehase]

Moin Jan,

ich hab's gefunden:
Guckst Du hier:

12 Delphi Under The Hood: #09: How to Get an Enum's Name

Mit Toolsapi lag' ich weit daneben.
Die Unit heisst typinfo.
Es geht um die Verarbeitung der Run-Time TypeInformation (RTTI)

[Jan]

Hallo Christian,
vielen Dank für deine Antwort,
aber du hast leider entweder meinen Post oder den Artikel nicht richtig gelesen.

Zitat:

It would be nice to be able to convert these enumerated types Red, Blue and Green to their string equivalent ('Red', 'Blue' and 'Green').

Stimmt, dass das so geht wie im text beschrieben, aber leider möchte ich das ganze andersrum. Nicht von Red nach 'red' sondern von 'red' nach red.
Gruß
Jan

[Christian Seehase]

Moin Jan,

ja und?

Dann speichere Dir die ausgelesenen Strings in einer TStringList.
Anschliessend kannst Du dann mit IndexOf den Wert ermitteln.
Die Liste darf nur nicht sortiert sein.

Da in Delphi die Werte für die Aufzählungstypen bei 0 beginnen und Lückenlos aufeinander folgen, korrespondiert also der Index genau mit dem Wert.

Soll die Liste sortiert sein, kannst Du auch den Wert als Objekt zumsammen mit dem String speichern.

[Hansa]

Langsam glaube ich, es wird immer viel zu kompliziert gedacht, wobei ich mich mit einschließe.

Zitat von Jan:

Hallo DP,
habe dazu noch eine Frage:
wie überprüfe ich ob ein String in einem set vorkommt?
Mein Set sieht so aus:
var nameset : set of (comment, name, id); und dann muss ich 'comment' in dem set wiederfinden.
Gruß
Jan

1. Fragestellung also, comment soll gefunden werden. 8)

Zitat:

Da habe ich einen String, der exakt den gleichen Wert hat wie der Name eines Teils meines Sets, und ich soll nicht festellen können, ob der Name in dem Set vorhanden

2. Das ist schon präziser.

Du willst also nur wissen ob der Sring 'Comment' in Deinem Set ist, richtig ? Und dazu wolltest Du einfach :

if MeinString IN MeinSet benutzen. Wie wäre es denn, wenn Du einfach alle diese Teilstrings statt in das Set zu packen, aneinanderreihst ?

statt so:

var nameset : set of (comment, name, id); einfach ungefähr so :

const namestring : 'comment name id'; Dann bist Du doch schon fertig. Dann kriegst Du mit :

if pos (SuchString,namestring) <> 0; raus, ob das Ding da drin ist oder nicht Vermute mal, das ist für drei Strings einfach nicht kompliziert genug, um es so zu machen.

[Jan]

Wo er recht hat...
Ein wahrlich praktisch denkendes Köpfchen der gute Hansa!

@Christian, du magst vielleicht auch recht haben aber deine Version ist wohl bei weitem aufwändiger. Ich danke Dir allerdings trotzdem für deine aufschlussreichen comments, den Link fand ich sehr interressant.
Gruß
Jan

[Hansa]

Zitat von Jan:

Wo er recht hat...
Ein wahrlich praktisch denkendes Köpfchen der gute Hansa!
...

Aha, war das doch alles ? "Warum einfach, wenns auch kompliziert geht ?" tja, das war noch nie was für mich. Aber trotzdem rate ich noch jedem, der an einem Problem hängen bleibt, zu versuchen dieses irgendwie auf eine einfachere Stufe zu reduzieren und zu versuchen es mit den Mitteln zu lösen, die man wirklich sicher beherrscht. Geht das nicht, so fehlt eben Wissen, das man sich aneignen muß, z.B. hier.

[negaH]

Es geht auch eleganter, wenn wir den Compiler zu Hilfe nehmen. Zu jedem deklarierten Typ werden durch den Compiler auch Typ Informationen in die EXE eingelinkt. Durch diese wird es möglich dynamisch zur Laufzeit Typen zu überprüfen oder sogar zu casten. Die Funktionen in Unit TypInfo.pas sind da sehr hilfreich. Nachfolgender Code "castet" eine beliebigen String in ein Mengenelement aus der Menge von TName.

Delphi-Quellcode:

uses TypInfo;

type // der Namen Typ + das set
  TName  = (unknown, idiot, comment, name, id);  
  TNames = set of TName;

function StrToName(const Value: String): TName;
// wandelt einen String in ein TName um
var
  I: Integer;
begin
  I := GetEnumValue(TypeInfo(TName), Value);
  if I = -1 then Result := unknown
    else Result := TName(I)
end;

function NameToStr(Value: TName): String;
// gibt den lesbaren Bezeichner eines Mengen Elemente zurück
begin
  Result := GetEnumName(TypeInfo(TName), Integer(Value));
end;

procedure Test;
var
  Name: TName;
begin
  Name := StrToName('comment');
  Writeln( NameToStr( Name ) );

  WriteLn( NameToStr( StrToName('ID') ) );
  WriteLn( NameToStr( StrToName('iD') ) );
  WriteLn( NameToStr( StrToName('Comment') ) );
  WriteLn( NameToStr( StrToName('Test') ) );

  if StrToName('id') in [id, comment] then WriteLn('id is in [id, comment]')
    else WriteLn('id is not in [id, comment]');

  if StrToName('Test') in [id, comment] then WriteLn('Test is in [id, comment]')
    else WriteLn('Test is not in [id, comment]')
end;

Da auch Strings an StrToName() übergeben werden können die nicht in TName vorkommen habe ich das Element "unknown" deklariert. Alle Strings die nicht in TName vorkommen werden als unknown definiert.

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.

Gruß Hagen

[Jan]

Grüß Dich Hagen,

Delphi-Quellcode:

function StrToName(const Value: String): TName; 
// wandelt einen String in ein TName um 
var 
  I: Integer; 
begin 
  I := GetEnumValue(TypeInfo(TName), Value); 
  if I = -1 then Result := unknown 
    else Result := TName(I) 
end;

Das ist doch fast genau was ich von Anfang an haben wollte!
Es wandelt zwar nicht jeden beliebigen String in einen TName mit selbigem Wert um, aber immerhin tut es das was ich brauche. Kann mir denn mal jemand sagen warum es die function strtoname, mit der man jeden beliebigen String umwandeln kann, nicht von vornherein bei Delphi gibt?
Danke Dir!
Gruß
Jan