В help'е баг в BlockRead:
Var
SF, DF: File;
Buffer: Pointer;
Count: Longint;
begin
Assign( SF, SrcName );
Assign( DF, DestName );
{$I-}
Reset( SF, 1 );
{$I+}
if IOResult <> 0 then Exit;
Rewrite( DF, 1 );
GetMem( Buffer, BufSize );
while not Eof( SF ) do
begin
BlockRead( SF, BufSize, Count );
^ и где буфер? :)
BlockWrite( DF, Count, Count );
^ и где буфер? :)
end;
Close( SF );
Close( DF );
On 04 Sep 2006 00:51 you wrote All:
SR> (А мое предыдущее письмо про баг в RTL дошло?)
Ага.
SR> В help'е баг в BlockRead:
SR> BlockRead( SF, BufSize, Count );
SR> ^ и где буфер? :)
SR> BlockWrite( DF, Count, Count );
SR> ^ и где буфер? :)
Если мне не изменяет память, этот пример компилится и работает. Типа,
переменная Buffer типа Pointer автоматически подразумевается, если не указана
явно. Хотя могу и ошибаться. Проверять щас лень. :)
Черт, а ведь у меня тоже такая мысль проскочила, но я проверять не стал :)
(большей частью потому, что в хелпе не работает выделение ;-)
Hо вообще жесть, если функция по умолчанию может принимать некий поинтер Buffer
:)
On 04 Sep 2006 09:06 you wrote me:
AF>> Если мне не изменяет память, этот пример компилится и работает.
AF>> Типа, переменная Buffer типа Pointer автоматически
AF>> подразумевается, если не указана явно. Хотя могу и ошибаться.
AF>> Проверять щас лень. :)
SR> Черт, а ведь у меня тоже такая мысль проскочила, но я проверять не
SR> стал :) (большей частью потому, что в хелпе не работает выделение ;-)
А кстати работает. И даже копируется в буффер с помощью Ctrl-C. :)
SR> Hо вообще жесть, если функция по умолчанию может принимать некий
SR> поинтер Buffer :)
Да уж..
А выделяется как? Там курсора даже нет :)
У меня, правда, не самый последний билд
On 04 Sep 2006 19:39 you wrote me:
SR>>> Черт, а ведь у меня тоже такая мысль проскочила, но я проверять
SR>>> не стал :) (большей частью потому, что в хелпе не работает
SR>>> выделение ;-)
AF>> А кстати работает. И даже копируется в буффер с помощью Ctrl-C. :)
SR> А выделяется как? Там курсора даже нет :)
Мышкой. :)
SR> У меня, правда, не самый последний билд
Хм. Может в не самом последнем этой фичи еще не было..