как перекомпилировать модуль Classes?

← →
arhis (2005-10-04 14:54) [0]

← →
MBo © (2005-10-04 14:57) [1]

Цель какая?

← →
arhis (2005-10-04 15:00) [2]

Нужен дополнительный указатель в TStrings, тага там ведь нету.

← →
Alexander Panov © (2005-10-04 15:03) [3]

TStrings.Objects?

← →
arhis (2005-10-04 15:13) [4]

> Alexander Panov © (04.10.05 15:03) [3]

К нему можно обращаться вот так:

Row.Objects[0]:=self;

или нужно вначале создать этот нулевой элемент?

← →
Alexander Panov © (2005-10-04 15:19) [5]

var
List: TStringList;
begin
List := TStringList.Create;
//дальше на твой вкус - List.AddObject, List.Add, List.Objects[i] и т д.

← →
arhis (2005-10-04 15:21) [6]

спасибо

← →
evvcom © (2005-10-04 15:47) [7]

А перекомпилировать то, что не твое и для этого не предназначено, а также вносить исправления в чужие модули, отвыкай. Если есть возможность изменить функциональность унаследовавшись, то наследуйся. Если такой возможности нет, то выбрось такой класс/модуль - он написан неправильно.

← →
Antonn © (2005-10-04 16:37) [8]

а если classes.pas положить в каталог программы и изменить?

← →
Германн © (2005-10-04 17:09) [9]

2 Antonn © (04.10.05 16:37) [8]
И зачем ты ему подлянку кидаешь?

← →
Antonn © (2005-10-05 04:43) [10]

Германн © (04.10.05 17:09) [9]
а вы молчите больше... или кому то хуже будет, если он изменит файл?

← →
evvcom © (2005-10-05 11:12) [11]

> или кому то хуже будет, если он изменит файл

Когда начнет работать в командах, хуже будет его коллегам.

← →
Antonn © (2005-10-05 11:26) [12]

evvcom © (05.10.05 11:12) [11]
Когда начнет работать в командах, хуже будет его коллегам.
от того, что сейчас перекомпилит модуль?
прям от одного "перекомпила" человек всю жизнь так будет делать...

> прям от одного "перекомпила" человек всю жизнь так будет
> делать...

Есть такая поговорка, что детей воспитывают, пока они поперек лавки умещаются.

а кстати по поводу Classes.pas

посмотрите, как реализован метод TStringStream.Seek. У меня и D5,D6 и D7 - и везде с ошибкой
soFromEnd: FPosition := Length(FDataString) - Offset;
а надо
soFromEnd: FPosition := Length(FDataString) + Offset;

> а надо
> soFromEnd: FPosition := Length(FDataString) + Offset;
>

Это ж почему? Зачем позиции присваивать номер за пределами массива? Да...а...а... Вася. Или у тебя Offset отрицательный? Тогда надо справку смотреть, так ли это?

Все-таки похоже здесь [15] я не прав:
soFromEnd Offset is from the end of Memory. Offset must be <= 0 to indicate a number of bytes before the end of the DataString.
Мои извинения Васе. :)

Видимо, хелп писал один человек, а реализацию TStringStream.Seek другой, не глядя на то, что уже написали (или может еще не написали к тому времени?) в хелпе. Но концепция какая-то должна была быть!

Кстати, в TCustomMemoryStream.Seek прописано
soFromEnd: FPosition := FSize + Offset;

Я просто обнаружил эту ошибку, когда поставил компоненту для работы с ZIP архивами и оказалось, что при работе с файлами всё в порядке, а при работе с данными в памяти - какая то лажа. Перерыл 300K исходников и выяснил вот такую бяку в стандартном модуле.

как перекомпилировать модуль Classes? Найти похожие ветки