Скачать: CL | DM;

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

← →
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]

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

---

← →
Anatoly Podgoretsky ©   (2008-07-20 10:11) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c