Re: read from textfile

Return to index

Author

Message

domi

Posted: 10/22/2003 12:28:42

thank you very mutch, it helps in my solution but in there source there is a

small error

case CommandChar of

      'b':

        if fsBold in fi.Style then

          fi.Style := fi.Style-[fsBold]

        else

          fi.Style := fi.Style+[fsBold];

      'i':

        if fsItalic in fi.Style then

          fi.Style := fi.Style-[fsItalic]

        else

          fi.Style := fi.Style+[fsItalic];

      'u':

        if fsUnderline in fi.Style then           ====>>>> they have writen

here fsItalic

          fi.Style := fi.Style-[fsUnderline]

        else

          fi.Style := fi.Style+[fsUnderline];

    end;

thank you very mutch

domi