Вверх ↑
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
#1: 2022-01-19 16:26:20 ЛС | профиль | цитата
В файле 21 строка, в Memo открывается как одна строка, там где должен быть перевод строки ничего нет. Как открыть файл правильно? В Memo открываю для видимости, но в программе файл будет открываться в StrList. В прикреплении файл который нужно правильно прочитать, там есть текст на иврите, это не нужно.
Add(MainForm,2953706,147,140)
{
Width=929
Height=667
}
Add(StreamConvertor,12241763,315,189)
{
Mode=6
Point(Data)
link(onResult,7133190:doCharset,[])
}
Add(ODialog,14343632,196,189)
{
link(onExecute,6972916:doOpen,[])
}
Add(FileStream,6972916,245,189)
{
link(onLoad,9646224:doEvent1,[])
}
Add(Charset,7133190,364,189)
{
Type=9
link(onCharset,14601660:doText,[])
}
Add(Button,7679849,147,189)
{
Left=5
Top=5
Width=90
Caption="Открыть файл"
link(onClick,14343632:doExecute,[])
}
Add(Memo,14601660,413,168)
{
Left=5
Top=35
Width=905
Height=590
ScrollBars=3
}
Add(Hub,9646224,287,189)
{
link(onEvent1,12241763:doConvert,[])
link(onEvent2,6972916:doClose,[(309,202)(309,228)(233,228)(233,202)])
}


Редактировалось 1 раз(а), последний 2022-01-19 16:28:22
карма: 4

0
файлы: 1danielzrihen.zip [3.5KB] [261]
Разработчик
Ответов: 26113
Рейтинг: 2126
#2: 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
Ответов: 537
Рейтинг: 14
#3: 2022-01-19 18:15:34 ЛС | профиль | цитата
Спасибо, теперь правильно открывается.
nesco писал(а):
Там есть, но только 0x0A, а должно быть 0x0D 0x0A
в notepad++ правильно открывается в excel тоже, а в блокноте в одну строку.
карма: 4

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)