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

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

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

Вопрос задал: 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

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

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

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