Как разбить текст на части?

← →
Black © (2004-09-15 10:55) [0]

Я загружаю текстовый файл f:TFileStream; и получаю текст в одну строку. Определить границы строк можно по "<CR><LF>" в этой строке.
Вопрос: Как мне построчно загрузить этот файл в массив?

← →
icebeerg © (2004-09-15 10:57) [1]

Посмотри TStringList поможет

← →
icebeerg © (2004-09-15 11:00) [2]

var s:TStringList;
Begin
s:=TStringList.create;
s.SetText:=
и т.д.

← →
Black © (2004-09-15 11:04) [3]

Файл который я открываю сохранен как f:TFileStream;
Я пробовал TStringsList он открывает только первую строку.

← →
wl (2004-09-15 11:08) [4]

var s:TStringList;
Begin
s:=TStringList.create;
s.LoadFromFile(filename);

← →
Black © (2004-09-15 11:08) [5]

wl (15.09.04 11:08) [4]
var s:TStringList;
Begin
s:=TStringList.create;
s.LoadFromFile(filename);

не помогает

← →
Ega23 © (2004-09-15 11:12) [6]

не помогает

Как у классика было: "НЕ ВЕРЮ!!!"

← →
TUser © (2004-09-15 11:14) [7]

LoadFromFile
LoadFromStream
Text:=

← →
Black © (2004-09-15 11:23) [8]

Ega23 © (15.09.04 11:12) [6]
не помогает

Как у классика было: "НЕ ВЕРЮ!!!"

Он читает только 1 строку

← →
MegaBass (2004-09-15 11:27) [9]

var s:TStringList;
stream:TStream;
Begin
s:=TStringList.create;
stream:=TmemoryStream.Create(nil);
try
stream.LoadFromFile(filename);
s.LoadFromStream(stream);
...
finally
stream.free;
s.free;
end;

← →
TUser © (2004-09-15 11:31) [10]

> Он читает только 1 строку

Сразу навязывается вопрос - а что мы читаем за файл. Если bmp, exe и иже с ними - см посты известного здесь человека в Орешнике.

← →
wl (2004-09-15 11:34) [11]

может при создании файла поменять<CR> и <LF> местами?

← →
Black © (2004-09-15 11:54) [12]

MegaBass (15.09.04 11:27) [9]
stream:=TmemoryStream.Create(nil); пишет: Слишком много параметров

stream.LoadFromFile(filename); не знает Loadfromfile
s.LoadFromStream(stream);

wl (15.09.04 11:34) [11]
может при создании файла поменять<CR> и <LF> местами?

не помогло

TUser © (15.09.04 11:31) [10]

> Он читает только 1 строку

Сразу навязывается вопрос - а что мы читаем за файл. Если bmp, exe и иже с ними - см посты известного здесь человека в Орешнике.

ОН читает только текст с начала строки до "<CR><LF>"

> stream:=TmemoryStream.Create(nil); пишет: Слишком много
> параметров

Правильно пишет. Справку почитай, что ли.
А по существу - если читаешь методами tStringList то по-моему читается до первого #0, стало быть проверь что в файле после первой строки.

← →
wl (2004-09-15 13:49) [16]

пришли мне пример такого файла на мыло mailto:wl@ezmail.ru
попробую написать примерчик, читающий этот файл

а если этот файл прочитать весь целиком в буфер с помощью хотя бы того же самого TFileStream, а затем находить <cr><lf> и резать на отдельные строки?

← →
Kovsh (2004-09-15 14:10) [17]

Нужно открывать файл как нетипизированный. Для этого используются процедура:
BlockRead

а дальше по справке. Тогда можно будет открывать файлы любых форматов.

Как разбить текст на части? Найти похожие ветки