Хочу чтобы при считывание из файла текст был разного стиля...

← →
Хэтч (2004-03-27 04:17) [0]

Народ, как сделать чтобы при считывание из файла текст был разного стиля? У меня в файле идут термины и определения, я хочу чтобы термины были выделены жирным шрифтом, а определениыя обычным. Какой компонент лучше всего подойдет для таких целей и вообще возможно ли это?

← →
Defunct © (2004-03-27 04:23) [1]

> и вообще возможно ли это?
Разумеется возможно

> Какой компонент лучше всего подойдет для таких целей
TRichEdit

> У меня в файле идут термины и определения, я хочу чтобы термины были выделены жирным шрифтом, а определениыя обычным.

If <S is Термин> Then RichEdit.SelAttributes.Style := [fsBold] else If <S is Определение> Then RichEdit.SelAttributes.Style := []; RichEdit.SelText := S;

← →
Хэтч (2004-03-27 05:04) [2]

Я новичек в Delphi... можно более подробное объяснение примера. Хочется полностью пример кода считывания из файла. Заранее благодарен.

Хэтч (27.03.04 05:04) [2]

Ооо.. даже так ;)

Ладно все равно выходные на носу.

Допустим, в файле 1.txt хранятся записи сл. вида:

<Термин1> <Определение из нескольких слов>
<Термин2> <Определение из нескольких слов>
<Термин3> <Определение из нескольких слов>
и т.д.

Тогда читать и добавлять в RichEdit будем так:

procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
S:String;
DefenitionPos : Integer;
begin
{$I-}
AssignFile(F,"1.txt");
Reset(F);
RichEdit1.WordWrap := False;
While Not Eof(F) Do
With RichEdit1 Do
Begin
ReadLn(F,S);
DefenitionPos := Pos(" ",S);
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := Copy(S, 1, DefenitionPos);
SelAttributes.Style := [];
SelAttributes.Color := clNavy;
SelText := Copy(S, DefenitionPos, Length(S)-DefenitionPos);
SelText := #13+#10;
End;
CloseFile(F);
If IOResult<>0 Then ShowMessage("Ошибка чтения файла");
{$I+}
end;

Хочу чтобы при считывание из файла текст был разного стиля... Найти похожие ветки