ребят ни как не могу переделать процедуру из делфи в функцию в билдере помогите пожалуйста!?!??!?!
вот процедура написаная в Делфи

procedure ReadBufFromBmp(Bmp: TBitmap; StartPos, Count, Val: integer; var MS: TStream);
var
Ind, Indx, Indy, Indz, Ind1, Divider: integer;
CurVal, MByte, R: byte;
begin
If Val > 8 then
Exit;
If (Val mod 2 <> 0) and (Val <> 1) then
Exit;
If MS = nil then
MS := TMemoryStream.Create;
MByte := Round(Power(2, Val) - 1);
Indz := Val;
CurVal := 0;
If Bmp.Width > Bmp.Height then
Divider := Bmp.Height
else
Divider := Bmp.Width;
StartPos := StartPos * 8 div Val + 1;
for Ind1 := 0 to (Count * 8 div Val) do
begin
Ind := 16;
Indx := StartPos div Divider;
Indy := StartPos mod Divider;
while (Ind >= 0) and (MS.Position <= StartPos + Count) do
begin
R := Byte(Bmp.Canvas.Pixels[Indx, Indy] shr Ind);
R := R and MByte;
CurVal := CurVal or (R shl (Indz - Val));
Inc(Indz, Val);
If Indz > 8 then
begin
Indz := Val;
MS.Write(CurVal, 1);
CurVal := 0;
end;
Dec(Ind, 8);
end;
Inc(StartPos);
end;
end; 

так и тему надо было создавать как минимум в разделе про билдер..


а оформлять тегами, кто за Вас будет ? или Вам лень сделать приятнее тем, кто Вам захочет помочь ?



а где результат труда ? а лучше конкретные участки, в которых возникает проблема.

Заголовок можно так:

Xdron, добавьте в проект билдера .pas файл. Линкер билдера и так переваривает паскаль.