Вверх ↑
Разработчик
Ответов: 26113
Рейтинг: 2126
#1: 2022-01-19 16:55:12 ЛС | профиль | цитата
Sersey писал(а):
В файле 21 строка, в Memo открывается как одна строка, там где должен быть перевод строки ничего нет.

Там есть, но только 0x0A, а должно быть 0x0D 0x0A
Схема


Add(MainForm,12049973,329,84)
{
Width=929
Height=667
}
Add(StreamConvertor,12241763,497,133)
{
Mode=6
Point(Data)
link(onResult,7133190:doCharset,[])
}
Add(ODialog,14343632,378,133)
{
link(onExecute,6972916:doOpen,[])
}
Add(FileStream,6972916,427,133)
{
link(onLoad,9646224:doEvent1,[])
}
Add(Charset,7133190,546,133)
{
Type=9
link(onCharset,12336690:doReplace,[])
}
Add(Button,7679849,329,133)
{
Left=5
Top=5
Width=90
Caption="Открыть файл"
link(onClick,14343632:doExecute,[])
}
Add(Memo,14601660,644,112)
{
Left=5
Top=35
Width=905
Height=590
ScrollBars=3
}
Add(Hub,9646224,469,133)
{
link(onEvent1,12241763:doConvert,[])
link(onEvent2,6972916:doClose,[(491,146)(491,172)(415,172)(415,146)])
}
Add(Replace,12336690,595,133)
{
SubStr="\n"
DestStr="\r\n"
link(onReplace,14601660:doText,[])
}

карма: 22

0