Как прочетать весь файл использую TFileStream

← →
Kolan © (2006-10-12 15:11) [0]

Здравствуйте,
Никак не разберусь. Есть такой тип массива:
TByteArray = array of Byte;
Как использую TFileStream скопировать файл в массив этого типа?

← →
MBo © (2006-10-12 15:17) [1]

SetLength(A, Stream.Size)
Stream.Read(A[0], Stream.Size)

← →
Плохиш © (2006-10-12 15:21) [2]

var fs: TFileStream; ba: TByteArray; begin fs = TFileStream.Create(<FileName>); SetLenght(ba, fs.Size); fs.Read(ba[Low(ba)], fs.Size); fs.Free; end;

← →
novill © (2006-10-12 15:29) [3]

> [1] MBo © (12.10.06 15:17)

А если файл больше 255 байт что делать?

procedure SetLength(var S; NewLength: Integer); Description S is a string or dynamic-array variable. NewLength is the new number of characters or elements in S. For a short-string variable, SetLength simply sets the length-indicator character (the character at S[0]) to the given value. In this case, NewLength must be a value between 0 and 255.

← →
umbra © (2006-10-12 15:38) [4]

2 novill © (12.10.06 15:29) [3]

а где здесь говорили о коротких строках?

← →
MBo © (2006-10-12 15:39) [5]

>novill © (12.10.06 15:29) [3]
>А если файл больше 255 байт что делать?
Все то же самое и делать.
Внимательно прочитай, к чему именно относится последний абзац справки

← →
novill © (2006-10-12 15:40) [6]

Хмм, похоже, только я.
)))
Туплю...

> SetLength(A, Stream.Size)
> Stream.Read(A[0], Stream.Size)
>

Черт забыл на кнопку "добавить" нажать, благодарю разобрался.

Не нашел Stream.Size вот и думал сидел :)

А загрузить?...
Stream.WriteBuffer(Data, SizeOf(Data))
Так?

А се дошло...
Stream.WriteBuffer(Data[0], Length(Data) * SizeOf(Data[0]));

Как прочетать весь файл использую TFileStream Найти похожие ветки