Stream's. Запись в тело файла строки.

[Человек_Борща]

Все работает =)

[Пепел Феникса]

Ошибки не должно быть, поскольку Length возвратит 0

Length возвратит ноль, а что возвратит @s[1]?

[Аватар]

nil .

[chertovich]

Сообщение от Пепел Феникса

Length возвратит ноль, а что возвратит @s[1]?

Возвратит неверный адрес. Но запись по этому адресу производится не будет.

[Пепел Феникса]

про запись знаю что не будет.

я боялся исключения о том что обращаемся к несуществующему символу.

[Человек_Борща]

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

Пытаюсь прочитать записанное число.

        fs.Seek(fs.Size-SizeOf(Integer), soFromEnd);
        fs.Read(iOffsetRecLen,SizeOf(Integer)); //Должно быть 12
        iOffsetRecLen:=iOffsetRecLen; // Тут смотрю,что получилось под дебагом.

Как писать, читать числа?


УПД =)

Решил трабл..

fs.Seek(fs.Size-SizeOf(Integer), soFromBeginning);

УПД 2

Как читать строки? Я знаю где и сколько она занимает. Как прочитать?

Решил..

        SetLength(zStr,iOffsetRecLen);
        fs.Read(zStr[1],Length(zStr)*SizeOf(zStr[1]));

[phomm]

Возможно, вот эта "моя" темка прояснит некоторые вещи http://www.cyberforum.ru/delphi/thread404848.html

Записывать/читать числа так, как в примере Вы указали, только делать вот так

fs.Seek(fs.Size-SizeOf(Integer), soFromEnd);

чтобы считать с конца - довольно странно, надо что-то одно юзать, или fs.Size-SizeOf(Integer) или soFromEnd(вместо soFromBeginning), я полагаю, цель была вот такая:

fs.Seek(SizeOf(Integer), soFromEnd);

Плюс могу посоветовать, чтобы не переписывать в некоторых случаях, sizeof брать от самой переменной, а не её типа, тогда при необходимости смены типа мы застрахованы от недосмотра.

[Человек_Борща]

Взял на вооружение советы.

Таак-с.. со сбором буханки хлеба все нормально. Но файл "грязный", его надо почистить от крошек...

Допустим некая "запись" сидит с позиции 504 по позицию 707 в файле размером 5000. Таких записей > 1. Их нужно удалить из файла. Как это сделать?

[Serge_Bliznykov]

Допустим некая "запись" сидит с позиции 504 по позицию 707 в файле размером 5000. Таких записей > 1. Их нужно удалить из файла. Как это сделать?

а тут вариантов не много - либо отметить эту запись как удалённую (завести в ней признак) + (опционально, по желанию) забить нулями(мусором).
либо СДВИГАТЬ всё, что после данной записи на её место. Крайне неэффективно и затратно, но иногда приходится и неэффективными способами пользоваться. При этом рекомендую работать с копией файла - тогда сбой(любой) во время переноса данных не будет катастрофическим.
Либо, если число удаляемых записей >1 - тогда можно переписывать всё в новый (временный) файл, пропуская удаляемые куски.
После завершения - удалить (или переименовать в <имя>.~bak) исходный файл, временный переименовать в исходное имя. профит.

[GunSmoker]

Может будет полезно (особенно раздел "Практика").