Сохранение вида шрифта

[Maxs]

Я сохраняю вид шрифта в txt файл, но никак не могу сохранить Style.fsBold.
Примерно так я хотел:
if par[8]=1
Memo.Font.Style.fsBold:=True
else
Memo.Font.Style.fsBold:=False;
Соответственно сохранять обратной операцией.

[Maxs]

Как перевести из String в Charset и в pitch?
FormParametersFormat.Label1.Font.Ch arset:=TCharset(StringGrid2.Cells[0,9]);

[koma_grusha]

попробуй примерно так

Memo.Font.Style := Memo.Font.Style + [fsBold]

[DomiNick]

Примерно так я хотел:
if par[8]=1
Memo.Font.Style.fsBold:=True
else
Memo.Font.Style.fsBold:=False;

Что есть "par"..?
И как-то странно вы написали...

Memo1.Font.Style это TFontStyles
а TFontStyles является "set of TFontStyle"

Значит надо так писать:

Memo1.Font.Style:=[fsBold];

P.S. Возможные значения: TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);

[koma_grusha]

Значит надо так писать:
Код:

Memo1.Font.Style:=[fsBold];

лучше суммировать, чтобы не затиралось остальное (курсив ит.п. если есть)

[DomiNick]

лучше суммировать, чтобы не затиралось остальное (курсив ит.п. если есть)

Я просто показал пример правильной записи...
Кстати а может и нужно как раз остальное затирать..?

Или например так...
Допустим в этом загадочном "par" есть значения:
par[8] - жирный
par[9] - курсив
par[10] - подчёркнутый
par[11] - перечёркнутый

Memo1.Font.Style:=[];
If par[8]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsBold];
If par[9]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsItalic];
If par[10]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsUnderline];
If par[11]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsStrikeOut];

[Maxs]

Сообщение от DomiNick

Я просто показал пример правильной записи...
Кстати а может и нужно как раз остальное затирать..?

Или например так...
Допустим в этом загадочном "par" есть значения:
par[8] - жирный
par[9] - курсив
par[10] - подчёркнутый
par[11] - перечёркнутый

Memo1.Font.Style:=[];
If par[8]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsBold];
If par[9]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsItalic];
If par[10]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsUnderline];
If par[11]='1' Then Memo1.Font.Style:=Memo1.Font.Style+[fsStrikeOut];

Так работает. Спасибо.

[Maxs]

Теперь не могу сохранить. Как сделать наоборот? в par надо записать 1 или 0

[evg_m]

style
mem1.font.style set of ...т.е. это множество
смотрим в справке set operators (операции со множествами)

Set operators
Operator Operation Operand types Result type Example
+ union set set Set1 + Set2
- difference set set S - T
* intersection set set S * T
<= subset set Boolean Q <= MySet
>= superset set Boolean S1 >= S2
= equality set Boolean S2 = MySet
<> inequality set Boolean MySet <> S1
in membership ordinal, set Boolean A in Set1

[DomiNick]

Как сделать наоборот?

Вообще хороший вопрос... Мне с множествами редко приходится манипулировать...

Сначала подумал делать как-то так:

If (Memo1.Font.Style+[fsBold]=Memo1.Font.Style) Then par[8]:='1' Else par[8]:='0';

Впринципе работает, но потом я залез в Яндекс... Лучше так будет:

If fsBold in Memo1.Font.Style Then
      par[8]:='1'
Else
      par[8]:='0';

Ну и остальные по аналогии...