Cтроки и Файлы [D7, XP]
Страницы:
<
1
2
>
gamez © (2008-04-22 17:44:00)
Необходимо зашифровать файл
Пишет такую ошибку
Debugger Exception Notification
Project LAB.exe raised execprion class EAccessViolation with
message 'Access violation at address 00461BC1 in module LAB.exe'.
Write of address 00000000'.
F1,F2: file of byte;
b: byte;
i,j: integer;
N: integer;
key :array of byte;
----------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
// key := strtoint(edit2.Text);
key[0] := 1;
key[1] := 2;
key[2] := 3;
key[3] := 4;
AssignFile(f1,edit1.text);
Reset(f1) ;
AssignFile(f2,edit3.text);
rewrite(f2) ;
While Not Eof(f1) do
begin
Read(f1, b);
n := n + 1;
if n = 3 then n := 0;
b := b Xor key[n];
Write(f2, b);
end;
CloseFile(f1);
CloseFile(f2);
memo1.Lines.LoadFromFile(edit3.text);
ShowMessage('Файл успешно зашифрован');
end;
{RASkov} (2008-04-22 17:46:00) [21]
> [0] gamez (22.04.08 17:44)
Устанавливать размер нужно динамическим массивам....
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
