Datentyp: Set of

[Minz]

Challo ihr,

habe da Fragen zu dem Datentyp: Set of ...

Und zwar wird dieser bei RichEdit1.Font.Style verwendet.

Ich möchte jetzt folgendes erreichen:

RichEdit1.Font.Style=[fsBold, fsItalic]

und zwar abhängig ob die Variablen Bold und Italic auf True sind.

Gibt es da operationen wie Style+[fsItalic] oder so?

Also einfach ausgedrückt: wie füge ich Elemente einer Variablen vom Typ Set of hinzu und wie lösche ich sie.

Vielen Dank schonmal
Minz

[Luckie]

Das ganze mit Toolbar-Buttons:

Delphi-Quellcode:

procedure TForm1.tbbBoldClick(Sender: TObject);
begin
  if tbbBold.Down then
    Richedit1.SelAttributes.Style := Richedit1.SelAttributes.Style + [fsBold]
  else
    Richedit1.SelAttributes.Style := Richedit1.SelAttributes.Style - [fsBold];
end;

procedure TForm1.tbbItalicClick(Sender: TObject);
begin
  if tbbItalic.Down then
    Richedit1.SelAttributes.Style := Richedit1.SelAttributes.Style + [fsItalic]
  else
    Richedit1.SelAttributes.Style := Richedit1.SelAttributes.Style - [fsItalic];
end;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  tbbBold.Down := fsBold in Richedit1.SelAttributes.Style;
  tbbItalic.Down := fsItalic in Richedit1.SelAttributes.Style;
  tbbUnderline.Down := fsUnderline in Richedit1.SelAttributes.Style;
end;

[Minz]

Danke für die fixe Antwort,

die 3 letzten Anweisungen mit

fsBold in ... hab ich noch nicht kapiert, was die machen,

aber meine Frage ist ja schon mit dem davor beantwortet.

Vielen Dank
Minz

[Luckie]

Na wenn sich die Auswahl im RichEdit ändert sollen doch die Buttons entsprechend den Textformatierungen reagieren.

[Sebastian Nintemann]

Ums genau zu erklären:
Der "in" Operator prüft in diesem Fall ob der Style (zB fsBold) in dem Set (hier Richedit1.SelAttributes.Style) enthalten ist. Wenn der Style enthalten ist wird true, andernfalls false zurückgegeben.

Gruß, Sebastian

[Minz]

Axo, jetzt hab ichs auch verstanden :chat:
Hab mich nur net getraut nochmal zu fragen.
Danke
Minz

[Sebastian Nintemann]

Gern geschehen, falls das auf meine Antwort bezogen war :mrgreen:
Ich bin sicher hier wirst du auch beim fünften mal nachfragen noch eine Antwort kriegen, wenn du es nicht grad drauf anlegst die Antworter zu ver...schen, also immer nur Fragen :wink:

Gruß, Sebastian