TStreamReader: строка перед последней строкой

@Uefi220 · Регистрация: 20.06.2021

Студворк — интернет-сервис помощи студентам

Привет мне нужно прочитать файл как обычно отобразить последнюю строку затем как то сместить позицию в TStreamReader до предпоследней строки ну там до #10 или #13 заново прочитать и должна получится предпоследняя строка а почему то никак не выходит не понимаю почему =(

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm2.Button1Click(Sender: TObject);
const
BUFSIZE=1024*18;
var
sr:Tstreamreader;
Buf:TcharArray;
list:tstringlist;
c:Byte;
begin
SetLength(Buf, BUFSIZE);
list:=tstringlist.Create;
if opendialog1.execute then
sr:=TStreamReader.Create(opendialog1.filename, TEncoding.Default, True, 512);
sr.ReadBlock(Buf, 0, BUFSIZE);
list.Text:=pchar(Buf)+sr.readline;
memo1.Lines.Add('Последняя прочитанная строка: '+list[list.Count-1]);
sr.DiscardBufferedData;
while c <> 10 do begin
sr.BaseStream.Seek(-2, soCurrent);
sr.BaseStream.Read(c, 1);
end;
memo1.Lines.Add('Предпоследняя строка: '+sr.readline);
sr.Close;
sr.Free;
end;

@AzAtom · 20.03.2026, 10:09

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

От чего же это по нормальному в дельфи не продумали сразу =)

По какому "нормальному"? Проще хранить готовые строки в нужном количестве, чем сырые буферы.

@Cyborg Drone · 20.03.2026, 12:43

Uefi220, пожалуйста, думайте перед тем, как что-либо писать. Тем более, не переходите на личности, особенно если сами не знаете ответа на вопрос.

northener прав: нельзя создать инструмент, который выполняет все мыслимые задачи, особенно те, которые заранее неизвестны. Кто же мог предположить, что Вы будете пытаться использовать TStreamReader не для последовательного доступа, а для произвольного?

Почему нет того, что Вы желаете? Всё просто: это не предусмотрено. Желаете, чтобы оно было? Создайте наследника TStreamReader, обладающего нужным Вам функионалом, либо решите задачу другим способом.

@Uefi220 · 21.03.2026, 22:47 **[ТС]**

Сообщение от Cyborg Drone

Uefi220, пожалуйста, думайте перед тем, как что-либо писать....

Ты мне говоришь о том что говоришь или о чём то другом ?

@Cyborg Drone · 22.03.2026, 09:28

Я Вам говорю: не публикуйте, пожалуйста, Ваших суждений о личных качествах и манерах поведения других людей. Для этого думайте перед тем, как что-либо писать.

И ещё. Если можно, не тыкайте мне, пожалуйста, я с Вами брудершафта не пил.

@Uefi220 · 23.03.2026, 06:03 **[ТС]**

Сообщение от Cyborg Drone

И ещё. Если можно, не тыкайте мне, пожалуйста, я с Вами брудершафта не пил.

Возможно и пил даже насчёт тыканья мне не 5 лет чтобы всех на вы называть

@D1973 · 23.03.2026, 07:26

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

мне не 5 лет чтобы всех на вы называть

Следуя Вашей логике, применимость этических норм общения обратно пропорциональна возрасту? В таком случае, лет через 20 я могу всех открытым текстом посылать и это нормально будет?

@AzAtom · 23.03.2026, 10:57

Обращаться на "ты" к одному человеку это нормально и не нарушает никаких законов. А "вы" это просто привычка обращения так к начальству или к гораздо более старшему человеку.

@Cyborg Drone · 23.03.2026, 14:34

AzAtom, или к незнакомому человеку.

@Uefi220 · 31.07.2026, 09:13 **[ТС]**

Сообщение от Cyborg Drone

или к незнакомому человеку.

Интересно вот что тебя вообще огорчило помню я был когда лет на 15 моложе назвал одного человека на "ВЫ" он очень огорчился и сказал что он не такой старый чтобы я его на "ВЫ" называл так что я считаю что ты просто "излишне" придираешься

@Cyborg Drone · 31.07.2026, 10:32

Uefi220, ничего не огорчило. Просто я и Вы по-разному воспитаны. У людей моего возраста панибратство не приветствуется.

@Uefi220 · 31.07.2026, 11:06 **[ТС]**

Сообщение от Cyborg Drone

Просто я и Вы по-разному воспитаны. У людей моего возраста панибратство не приветствуется

А по поводу темы то ты сможешь подсказать как "перематывать" то TStreamReader в обратную сторону на пару тройку строк

@Cyborg Drone · 31.07.2026, 11:56

Без костылей - никак.

@krapotkin · 31.07.2026, 14:47

да что там сложного?
под капотом TStreamReader лежит обычный TStream, у которого есть position и соответственно можно вручную отмотать побайтно до ближайшего #10 или #13#10
это и есть "на одну строку назад"

@Uefi220 · 31.07.2026, 20:22 **[ТС]**

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

под капотом TStreamReader лежит обычный TStream, у которого есть position и соответственно можно вручную отмотать побайтно до ближайшего #10 или #13#10
это и есть "на одну строку назад"

Привет да я пробовал что то он бредово отматывал

@Cyborg Drone · 01.08.2026, 16:09

Скорее всего, всё верно отматывается, а бред получается из-за неверного определения конца последней строки.

Последняя строка может быть "висячей" (без #13#10 в конце), пустой (содержит только #13#10) или неинформативной (к примеру, содержит только табуляции и пробелы).

@Uefi220 · 01.08.2026, 19:36 **[ТС]**

Сообщение от Cyborg Drone

Последняя строка может быть "висячей"

В новых системах только #10

@krapotkin · 02.08.2026, 09:54

"новым системам" лет 100 примерно
windows #13#10
unix #10

@Uefi220 · 02.08.2026, 15:36 **[ТС]**

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

unix #10

win 8 win 10 win 11 - #10

@Cyborg Drone · 03.08.2026, 00:17

Заблуждаетесь. Откройте любой текстовый файл в HEX-редакторе.

@krapotkin · 06.08.2026, 08:11

гугл - запрещенное действие на территории РФ

Новые блоги и статьи Все статьи Все блоги /
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026
Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	20.03.2026, 12:43
	Uefi220, пожалуйста, думайте перед тем, как что-либо писать. Тем более, не переходите на личности, особенно если сами не знаете ответа на вопрос. northener прав: нельзя создать инструмент, который выполняет все мыслимые задачи, особенно те, которые заранее неизвестны. Кто же мог предположить, что Вы будете пытаться использовать TStreamReader не для последовательного доступа, а для произвольного? Почему нет того, что Вы желаете? Всё просто: это не предусмотрено. Желаете, чтобы оно было? Создайте наследника TStreamReader, обладающего нужным Вам функионалом, либо решите задачу другим способом. 3

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	22.03.2026, 09:28
	Я Вам говорю: не публикуйте, пожалуйста, Ваших суждений о личных качествах и манерах поведения других людей. Для этого думайте перед тем, как что-либо писать. И ещё. Если можно, не тыкайте мне, пожалуйста, я с Вами брудершафта не пил. 1

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	23.03.2026, 10:57
	Обращаться на "ты" к одному человеку это нормально и не нарушает никаких законов. А "вы" это просто привычка обращения так к начальству или к гораздо более старшему человеку. 0

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	23.03.2026, 14:34
	AzAtom, или к незнакомому человеку. 1

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	31.07.2026, 10:32
	Uefi220, ничего не огорчило. Просто я и Вы по-разному воспитаны. У людей моего возраста панибратство не приветствуется. 1

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	31.07.2026, 11:56
	Без костылей - никак. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	31.07.2026, 14:47
	да что там сложного? под капотом TStreamReader лежит обычный TStream, у которого есть position и соответственно можно вручную отмотать побайтно до ближайшего #10 или #13#10 это и есть "на одну строку назад" 0

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	01.08.2026, 16:09
	Скорее всего, всё верно отматывается, а бред получается из-за неверного определения конца последней строки. Последняя строка может быть "висячей" (без `#13#10` в конце), пустой (содержит только `#13#10`) или неинформативной (к примеру, содержит только табуляции и пробелы). 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	02.08.2026, 09:54
	"новым системам" лет 100 примерно windows #13#10 unix #10 0

@Cyborg Drone Модератор 10476 / 5771 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	03.08.2026, 00:17
	Заблуждаетесь. Откройте любой текстовый файл в HEX-редакторе. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	06.08.2026, 08:11
	гугл - запрещенное действие на территории РФ 0