|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.06.2008, 10:25 | #1 |
Регистрация: 03.03.2008
Сообщений: 3
|
У меня проблемы с richedit
дело в том что когда я добавляю в него текст с файла он пропускает пробелы с начало строки до первого символа, как этого можно избежать при добавления текста с текстового файла.(добавление делаю построчно while seekeof(s)=false do
begin readln(s,s2); richedit1.Lines.Add(s2); end |
20.06.2008, 00:36 | #2 |
Форумчанин
Регистрация: 08.07.2007
Сообщений: 154
|
Ну readln(s,s2); читает в етом файле все до пробела а после переходит на следущую строчьку.
Можеш использовать read(s,s2); но тогда в ричедите у тебя каждое слово после пробела будет в новой строке. Тут луче всего определить сколько слов влезет в одну строку и записать ето кол в переменную. Приведу пример: var s3:string; i:integer; ... while seekeof(s)=false do begin for i:= 1 to 4 do begin if seekeof(s)=false then begin read(s,s2); s3:=s3+s2; end; end; richedit1.Lines.Add(s3); end; |
21.06.2008, 07:55 | #3 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
!evgen! - не подверждаю подобное поведение.
может проблемы с исходным файлом? вот, кинул на форму кнопку, на неё такой текст: Код:
Iceman - или одно из двух, или написан полный бред :-(( особенно порадовала вот это: Цитата:
|
|
21.06.2008, 08:38 | #4 |
Старожил
Регистрация: 22.05.2007
Сообщений: 9,065
|
Вероятно функция SeekEof пропускает ваши пробелы, путые строки и символы табуляции. Для определения конца файла используйте просто eof
|
23.06.2008, 10:03 | #5 |
Регистрация: 03.03.2008
Сообщений: 3
|
Спасибо теперь все в порядке!))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
У меня проблема | Pusher | HTML и CSS | 3 | 03.05.2008 02:12 |
ПОЗДРАВЬТЕ МЕНЯ!!!! | Сильванович Михаил | Свободное общение | 14 | 19.07.2007 11:26 |
У меня задержка...;) | Баламут | Общие вопросы Delphi | 2 | 19.06.2007 08:17 |
У меня родился сын!!!! | Umen | Свободное общение | 11 | 14.03.2007 19:47 |
Пишу диплом, проблемы с RichEdit и Printer | Nikilush | Компоненты Delphi | 2 | 02.11.2006 12:40 |