...
RichEdit.PlainText := UpperCase(ExtractFileExt;(FileName)) = '.TXT'
...
Rich
Нужен такой код, чтобы при открытии txt plain text = true, а при открытии rtf и тд. был false;
Цитата:
Originally posted by dexterdef
Нужен такой код, чтобы при открытии txt plain text = true, а при открытии rtf и тд. был false;
Нужен такой код, чтобы при открытии txt plain text = true, а при открытии rtf и тд. был false;
if SysUtils.ExtractFileExt(FileName)='.txt' then
Form1.RichEdit.PlainText:=true
else
//if SysUtils.ExtractFileExt(FileName)='.rtf' then
Form1.RichEdit.PlainText:=false;
FileName - полное имя файла загружаемого в Rich
Цитата:
Originally posted by Delpher
if SysUtils.ExtractFileExt(FileName)='.txt' then
Form1.RichEdit.PlainText:=true
else
//if SysUtils.ExtractFileExt(FileName)='.rtf' then
Form1.RichEdit.PlainText:=false;
FileName - полное имя файла загружаемого в Rich
if SysUtils.ExtractFileExt(FileName)='.txt' then
Form1.RichEdit.PlainText:=true
else
//if SysUtils.ExtractFileExt(FileName)='.rtf' then
Form1.RichEdit.PlainText:=false;
FileName - полное имя файла загружаемого в Rich
небольшая поправка...
Код: