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, или к незнакомому человеку.

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

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

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

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

@Cyborg Drone Модератор 10451 / 5746 / 3409 Регистрация: 17.08.2012 Сообщений: 17,485
	23.03.2026, 14:34
	AzAtom, или к незнакомому человеку. 0