Загрузка и сохранение бинарных файлов.

[zzdxw]

Ну я же сказал, что нужно считать весовые коэффициенты при G(x).
G - это матрица 3х3, которая нужна для нахождения значения перепада яркости в пикселе. Я, увы, не знаю, как еще объяснить...

[indexx]

То есть готовое не устраивает? ОК.

[zzdxw]

Спасибо, но это не то. Это реализованный оператор Собеля с фиксированными весовыми коэффициентами. Это я уже сделал.

[indexx]

Переделай не под фиксированный. Тут ни кто не будет изучать для тебя этот алго. Не к чему лишним голову забивать.

[zzdxw]

Так я уже сделал возможность вручную задавать коэффициенты. Мне надо теперь, чтобы эти коэффициенты считывались из файла, который я захочу.

[min@y™]

Ну я же сказал, что нужно считать весовые коэффициенты
Мне надо теперь, чтобы эти коэффициенты считывались из файла, который я захочу.

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

[zzdxw]

Я не знаю...(
BMP в WinHEX показывает абракадабру. Как только разберусь с этим вопросом, напишу сюда.

[indexx]

Нахрена ковырять hex, если можно загрузить изображение в TBitmap, и ковырять осмысленные пиксели? По моему ТС сам себе выворачивает мозг

[min@y™]

Я не знаю...(

плохо.

BMP в WinHEX показывает абракадабру.

Это неправда.

[zzdxw]

В общем, такие дела: создал в HEX'е файл. В программе при нажатии "Загрузить из" загружает в Edit1 первую строку из созданного файла. Как мне сделать, чтобы в Edit2 загружалась вторая строка и т.д.?

procedure TForm2.Button2Click(Sender: TObject);
const
  MaxLen = 255;
var
  f:file;
  s:string[MaxLen];
  Cnt:integer;
begin
if opendialog1.Execute then
begin
  AssignFile(f, opendialog1.FileName);
  FileMode:=fmOpenRead;
  Reset(f,1);
  blockread(f,s[1], MaxLen, Cnt);
  SetLength(s, Cnt);
  closefile(f);
  edit1.text:=s;
end;
end;