работа с файлам

[iolanna]

У меня текстовый файл, в нем много строк, но он берет только первую, как добраться до второй?
Descrip-char
TFile.OPEN(FileName);
TFile.TEXTMODE := FALSE;

WHILE TFile.POS <>TFile.LEN DO BEGIN
TFile.READ(Descrip);

[yauhen]

Надо не WHILE TFile.POS <>TFile.LEN DO BEGIN, а WHILE TFile.POS < TFile.LEN DO BEGIN. Тогда будет счастье.
и ещё TFile.TEXTMODE := TRUE;

А кто-нибудь знает, как добавить символ новой строки (аналог '\n' или Environment.NewLine ), чтобы считаные из файла строки склеить в одну строку и получить тоже, что и в файле.

[Milk]

2 yauhen: Если не ошибаюсь, символ новой строки в таблице ASCII имеет номер 10. Поэтому должно помочь завести переменную типа Char, присвоить ей значение 10 и ее прибавлять к строке.

[romeo]

Цитата:

Сообщение от yauhen

А кто-нибудь знает, как добавить символ новой строки (аналог '\n' или Environment.NewLine ), чтобы считаные из файла строки склеить в одну строку и получить тоже, что и в файле.

Переменная CR text2

CR[1] := 13;
CR[2] := 10;
Если переменную CR прибавлять в конец строки, то будет имитация [возврат каретки + перевод строки]

[yauhen]

Попробовал использовать CR text2, не помогает. В text box отображаются 2 квадратика вместо переврда строки. Вот используемый код:

NewLine[1] := 13;
NewLine[2] := 10;
f.TEXTMODE := TRUE;
Text := '';
IF f.OPEN(FileName) THEN
BEGIN
WHILE f.POS < f.LEN DO
BEGIN
f.READ(Temp);
IF Text = '' THEN
Text := Temp
ELSE
Text := Text + NewLine + Temp;
END;
f.CLOSE();
END;
EXIT(Text);

Если вместо NewLine использовать '\', то происходит перевод строки первый раз, но потом просто выводится символ \. Поэтому пока использую ' '.

[Corleone]

Создай лучше InSteram и читай файл построчно.

f.TEXTMODE(TRUE);
f.OPEN(Filename);
f.CREATEINSTREAM(StreamInObj);

i := 1;
WHILE NOT (StreamInObj.EOS()) DO
BEGIN
StreamInObj.READTEXT(Buffer);
MESSAGE('Line No. %1 %2', i , Buffer);
i := i + 1;
END;

f.CLOSE();

[yauhen]

Чем чтение из InStream лучше чтения прямо из файла применительно к Navision?

[Corleone]

Тем что в данном случае можно организовать чтение файла по строкам без лишних движений. К тому же этот способ более универсальный, можно считывать файлы в BLOB поля таблицы и BLOB переменные.