Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2008, 10:25   #1
!evgen!
 
Регистрация: 03.03.2008
Сообщений: 3
По умолчанию У меня проблемы с richedit

дело в том что когда я добавляю в него текст с файла он пропускает пробелы с начало строки до первого символа, как этого можно избежать при добавления текста с текстового файла.(добавление делаю построчно while seekeof(s)=false do
begin
readln(s,s2);
richedit1.Lines.Add(s2);
end
!evgen! вне форума Ответить с цитированием
Старый 20.06.2008, 00:36   #2
Iceman
Форумчанин
 
Регистрация: 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;
Iceman вне форума Ответить с цитированием
Старый 21.06.2008, 07:55   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

!evgen! - не подверждаю подобное поведение.
может проблемы с исходным файлом?
вот, кинул на форму кнопку, на неё такой текст:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s : textfile;
  s2 : string;
begin
  AssignFile(s,'Project1.dpr');
  Reset(s);
  while Not Eof(s) do
   begin
     readln(s,s2);
     richedit1.Lines.Add(s2);
   end;
  CloseFile(s);
end;
и всё работает...

Iceman - или одно из двух, или написан полный бред :-((
особенно порадовала вот это:
Цитата:
Сообщение от Iceman
Ну readln(s,s2); читает в етом файле все до пробела а после переходит на следущую строчьку.
а проверить слабо?!! :-(
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.06.2008, 08:38   #4
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,520
По умолчанию

Цитата:
Сообщение от !evgen! Посмотреть сообщение
while seekeof(s)=false do
begin
readln(s,s2);
richedit1.Lines.Add(s2);
end
Вероятно функция SeekEof пропускает ваши пробелы, путые строки и символы табуляции. Для определения конца файла используйте просто eof
pu4koff вне форума Ответить с цитированием
Старый 23.06.2008, 10:03   #5
!evgen!
 
Регистрация: 03.03.2008
Сообщений: 3
По умолчанию

Спасибо теперь все в порядке!))
!evgen! вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
У меня проблема 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