Transpose procedure - what it is ?? - Thread - go-pugleaf

Thread View: borland.public.delphi.database.win32

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by Isaac Fri, 22 Feb 2008 16:24

Transpose procedure - what it is ??

#70

Author: Isaac
Date: Fri, 22 Feb 2008 16:24

2 lines
1098 bytes

I found this procedure "Transpose" but no resource on the net about it, 
any one know what it do ?

Re: Transpose procedure - what it is ??

#71

Author: Bill Todd [TeamB]
Date: Fri, 22 Feb 2008 16:05

9 lines
1055 bytes

Isaac wrote:

> I found this procedure "Transpose" but no resource on the net about
> it, any one know what it do ?

Where did you find it? 

-- 
Bill Todd (TeamB)

Re: Transpose procedure - what it is ??

#79

Author: Bill Todd [TeamB]
Date: Fri, 22 Feb 2008 16:41

11 lines
1250 bytes

Isaac wrote:

> Constant object cannot be passed as var

The error means exactly what it says. The procedure declaration accepts
two var parameters. Somewhere the code is calling the procedure and
passing a constant or litteral value as one of the parameters. The
error message should show the line number.

-- 
Bill Todd (TeamB)

Re: Transpose procedure - what it is ??

#77

Author: Isaac
Date: Fri, 22 Feb 2008 17:15

38 lines
1964 bytes

Bill Todd [TeamB] wrote:
> Isaac wrote:
> 
>> I found this procedure "Transpose" but no resource on the net about
>> it, any one know what it do ?
> 
> Where did you find it? 
> 
sorry it was a predefined procedure in Free UDF Library, however I am 
getting this error when compiling with D7

[Error] Encrypt.pas(270): Constant object cannot be passed as var parameter

at line
   Transpose(OutBits, IP);

procedure definition:
=======================
procedure Transpose(var Data, OrderData: array of Byte);
var
   TmpData: array[0..63] of Byte;
   i : Byte;
begin
   {$ifdef FULDebug}
   WriteDebug('Transpose() - Enter');
   {$endif}
   StrMove(@TmpData, @Data, SizeOf(Data));
   for i := 0 to High(OrderData) do
     Data[i] := TmpData[OrderData[i]];
   {$ifdef FULDebug}
   WriteDebug('Transpose() - Exit');
   {$endif}
end;


any idea ???

Thanks

Re: Transpose procedure - what it is ??

#83

Author: Isaac
Date: Fri, 22 Feb 2008 23:42

11 lines
1349 bytes

Bill Todd [TeamB] wrote:
> Isaac wrote:
> 
>> Constant object cannot be passed as var
> 
> The error means exactly what it says. The procedure declaration accepts
> two var parameters. Somewhere the code is calling the procedure and
> passing a constant or litteral value as one of the parameters. The
> error message should show the line number.
> 
Many Thanks !!!

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads