|
|
#1
|
||||
|
||||
TFileStream
есть переменная, скажем
Код:
var s: TFileStream; |
#2
|
||||
|
||||
Цитата:
|
#3
|
||||
|
||||
хорошо, с потоками разобрался, тогда такой вопрос:
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: TFileStream; f: File; ss,i,sz: Integer; a: array [0..511] of Byte; begin If OpenDialog1.Execute then begin AssignFile(f,OpenDialog1.FileName); Reset(f); sz:=FileSize(f); Caption:=IntToStr(sz)+' байт'; Memo1.Text:=''; while sz>0 do begin BlockRead(f,a,512,ss); CloseFile(f); If RadioButton2.Checked then for i:=0 to ss-1 do Memo1.Text:=Memo1.Text+'#'+IntToStr(a[i]); If RadioButton1.Checked then for i:=0 to ss-1 do Memo1.Text:=Memo1.Text+Chr(a[i]); sz:=sz-ss; end; end; end; в строке Код:
BlockRead(f,a,512,ss); что не так? кто знает, помогите |
#4
|
||||
|
||||
Код:
while sz>0 do begin BlockRead(f,a,512,ss); If RadioButton2.Checked then for i:=0 to ss-1 do Memo1.Text:=Memo1.Text+'#'+IntToStr(a[i]); If RadioButton1.Checked then for i:=0 to ss-1 do Memo1.Text:=Memo1.Text+Chr(a[i]); sz:=sz-ss; end; CloseFile(f); и еще: Код:
f: File of byte; либо Reset(f,1); РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت |