глюк

← →
batya-x (2008-07-20 01:46) [0]

пытаюсь работать следующий процедурой но она работает но как то не так, где я делаю ошибку

procedure TForm4.Button1Click(Sender: TObject);
var
f: file of byte;
b: Byte;
x:integer;
begin
if opendialog1.Execute then
begin
AssignFile(f,opendialog1.FileName);
Reset(f);
x:=0;
while not Eof(f) do
begin
seek(f,x);
read(f,b);
ShowMessage(IntToHex(not b,2));
write(f,b);
x:=x+1;
end;
CloseFile(f);
end;
end;

← →
Johnmen © (2008-07-20 02:07) [1]

> но она работает но как то не так

А что тут странного? Если крутить f как бог на душу положил?

← →
batya-x (2008-07-20 02:18) [2]

не затруднит ли объяснит по продробней

У тебя вероятно ошибка в процедуре.

глюк Найти похожие ветки