[Моклев]

есть переменная, скажем

Код:

var s: TFileStream;

как загрузить в этот поток файл "path+filename" а потом загрузить в Memo?

[Admin]

Сообщение от Моклев

есть переменная, скажем

Код:

var s: TFileStream;

как загрузить в этот поток файл "path+filename" а потом загрузить в Memo?

Если это все что есть, то сначала прочитай этот раздел: http://www.delphisources.ru/pages/faq/file_system.html авось после прочтения повится что-то еще...

[Моклев]

хорошо, с потоками разобрался, тогда такой вопрос:

Код:

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);

возникает ошибка "I/O Error 998" или "I/O Error 103"

что не так? кто знает, помогите

[KOOL]

Код:

  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);