| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
глюк
batya-x © (2008-07-20 01:46:00)пытаюсь работать следующий процедурой но она работает но как то не так, где я делаю ошибку
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;
Anatoly Podgoretsky (2008-07-20 10:11:00) [1]У тебя вероятно ошибка в процедуре.
batya-x (2008-07-20 02:18:00) [2]не затруднит ли объяснит по продробней
Johnmen (2008-07-20 02:07:00) [3]
> но она работает но как то не так
А что тут странного? Если крутить fкак бог на душу положил?
| |
