Hallo Friends,
besteht die Möglichkeit, dass ich:
myBytes: Array[0..byteCount -1] of Byte;
dynamisch umwandeln kann ungefähr so myBytes: Array[x..y] of Byte; (wo x und y als Integer Variable werden ?
Bis jetzt habe ich wie folgt benutzt:
selectedFile := lblFilePath.Caption ;
fileStream := TFile.Open(selectedFile, TFileMode.fmOpen);
try
if fileStream.Seek(startByte, TSeekOrigin.soBeginning) < startByte then
raise
Exception.Create('file is too small');
if fileStream.Read(myBytes, byteCount) < byteCount then
raise
Exception.Create('file is too small');
myString := TEncoding.ANSI .GetString(myBytes);
finally
fileStream.Destroy();
end;
Thanks and have a great Time
