Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 583

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста. Необхоимо удалить из строки #$D#$A и прочитать несколько строк как одну целую.
Как это можно осуществить?

John Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: John (статус: Посетитель)
Вопрос отправлен: 14 мая 2008, 07:22
Состояние вопроса: открыт, ответов: 3.

Ответ #1. Отвечает эксперт: Иусов Сергей Ник.

Здравствуйте, John-1434!
Используй функцию StringReplace из модуля StrUtils

Ответ отправил: Иусов Сергей Ник. (статус: 3-ий класс)
Время отправки: 14 мая 2008, 07:26
Оценка за ответ: 4

Ответ #2. Отвечает эксперт: min@y™

Дополню немного. Скорее всего, нужно не удалить символы переноса строки и возврата каретки (#13#10), а заменить их на пробелы (чтоб слова не слипались).

AllText:= StringReplace(Memo.Lines.Text, #13#10, #32, rfReplaceAll);

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 14 мая 2008, 08:18
Оценка за ответ: 5

Ответ #3. Отвечает эксперт: ANBsoft

Здравствуйте, John-1434!
Если прочитать из файла, то примерно так:
Var F:TextFile;
s,s1:String;
Begin
AssignFile(f,'FileName.ext');
Reset(f);
s:='';
while not EOF(f) do begin
readln(f,s1);
s:=s+s1;//Если нужно, можно еще пробел добавить.
end;
closefile(f);

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 14 мая 2008, 09:05
Оценка за ответ: 4


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 октября 2017, 03:39
Выполнено за 0.13 сек.
Рейтинг@Mail.ru