проблема при записи в файл

[vankai14]

здравствуйте. не могу разобраться с записью в файлы. например, генерирую ключ для шифрования вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:byte; f:file;
begin   randomize;
AssignFile(f,'key.txt');  // и без указания расширения пробовал, т.е. просто 'key'
rewrite(f);
for i:=0 to 9 do
              begin
              k[i]:=random(255);
              Blockwrite(f,k[i],1);
              Edit1.Text:=edit1.Text+' ';
              edit1.Text:=edit1.Text+inttostr(k[i]);
              end;

end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:byte; f:TFileStream;
begin   randomize;
f:=TFileStream.Create('key.txt',fmCreate);  // и без указания расширения пробовал, т.е. просто 'key'
f.Position:=0;
for i:=0 to 9 do
              begin
              k[i]:=random(255);
              f.Write(k[i],sizeof(k[i]));
              Edit1.Text:=edit1.Text+' ';
              edit1.Text:=edit1.Text+inttostr(k[i]);
              end;

end;

Но когда открываю созданные файлы блокнотом, в обоих случаях вместо адекватных символоа вижу какие-то иероглифы. в чем может быть проблема?

[Stilet]

Во-первых: Файл где в коде закрывается?
Во-вторых: Ты в файл числа пишешь в машинном виде а не текстовом. Естесственно файл становится бинарным, потому блокнотом его и не проверишь.

[vankai14]

Сообщение от Stilet

Во-первых: Файл где в коде закрывается?
Во-вторых: Ты в файл числа пишешь в машинном виде а не текстовом. Естесственно файл становится бинарным, потому блокнотом его и не проверишь.

Ясно.
Тогда, если я читаю текстовый файл в машинном виде, шифрую, потом расшифровываю, я тоже его потом не могу посмотреть и сравнить. каким образом тогда поступить? Просто программа у меня должна работать с файлами любых типов....

OpenF:=TFileStream.Create(Edit3.Text,fmOpenRead);
OpenF.Position:=0;

num8:=OpenF.Size div 8;

ost:=OpenF.Size - num8*8;

if (ost=0) then num8:=num8-1;

for n:=0 to num8 do
     for m:=0 to 7 do OpenF.Read(blockin[n,m],sizeof(blockin[n,m]));

if (ost>0) then begin
                for m:=0 to (ost-1) do OpenF.Read(blockin[n+1,m],sizeof(blockin[n+1,m]));
                for m:=ost to 7 do OpenF.Read(blockin[n+1,m],sizeof(blockin[n+1,m]));
                end;


openf.Free;

далее шифровка и дешифровка, потом запись

for cicle:=0 to num8 do
     for x:=0 to 7 do CloseF.Write(blockout[cicle,x],sizeof(blockout[cicle,x]));
closef.free;

[Stilet]

Просто программа у меня должна работать с файлами любых типов....

Всмысле?
А метод шифрования то у тебя не текстовый же.
Значит в любом случае получится бинарный файл.
Смотреть его можно в любом HEX-редакторе.