[UltraBloxX]

Что-то я запутался - как работать с Font.Style? Вообщем мне нужна процедура типа

Код:

procedure ConFontStyle(Bold,Italic,Underline,StrikeOut: Boolean);
begin

end;

Которая бы присваивала шрифту нужные параметры.

Как присвоить соответствующие значения fsBold, fsItalic и т.д. согласно параметрам процедуры?

[TOJluK]

В предложенном вами вариантом лучше еще добавить объект ну и получится примерно так:

Код:

procedure ConFontStyle(Bold,Italic,Underline,StrikeOut: Boolean;OBJ:TObject);
begin
if Bold then
 (OBJ as TMemo).Font.Style:=(OBJ as TMemo).Font.Style+[fsBold];
end;

Надеюсь, дальше сами разберетесь.

[UltraBloxX]

А если "not Bold"?

[dr. F.I.N.]

я бы сделал примерно так:

Код:

procedure ConFontStyle(Bold, Italic, Underline, StrikeOut: Boolean; OBJ: TObject);
const
  FS: array [1..4, Boolean] of TFontStyles = (([],[fsBold]),
                                              ([],[fsItalic]),
                                              ([],[fsUnderLine]),
                                              ([],[fsStrikeOut]));
begin
 (OBJ as TMemo).Font.Style:= FS[1, Bold] +
                             FS[2, Italic] +
                             FS[3, Underline] +
                             FS[4, StrikeOut];
end;

[UltraBloxX]

dr. F.I.N., спасибо, код отлично работает!