Hexstring vb to Delphi

[Muetze1]

Ok, nun habe ich verstanden was du willst. Aber eine Frage: Warum fügst du die Werte der Konstanten als String ein? Dann hättest du danach bei jedem Eintrag wieder aufwändig den String schneiden müssen und wieder zurück wandeln müssen. Ich empfehle lieber die Konstanten in der Objekteigenschaften abzulegen.

lList -> TStringList;

Delphi-Quellcode:

  With lList Do
  Begin
    AddObject('WS_ACTIVECAPTION', TObject(WS_ACTIVECAPTION));
    AddObject('WS_BORDER', TObject(WS_BORDER));
    AddObject('WS_CAPTION', TObject(WS_CAPTION));
    ....
    AddObject('WS_VSCROLL', TObject(WS_VSCROLL));
  End;

Ok, nun zur Abfrage bezüglich eines Fensterhandles:

lWinStyle = Windows Style des Fenster welches analysiert werden soll
i = Integer
lConst = Cardinal
ListBox1 = AusgabeListBox

Delphi-Quellcode:

  For i := 0 To Pred(lList.Count) Do
  Begin
    lConst := Cardinal(lList.Objects[i]);

    If ( lWinStyle And lConst ) = lConst Then
      ListBox1.Items.Add(lList[i]);
  End;

Wenn du in der Liste auch noch den konstanten Wert haben willst, dann nutze die Format() Angabe von turboPASCAL.