Jump to content
Sign in to follow this  
Jacek Laskowski

A problem with edit the module's private procedures/functions

Recommended Posts

Renaming private (existed in implementation section) procedure/function parameters does not propagate to the procedure body.

Please try edit this function and change InString to something other.

function StrToIdBytes(const InString: string): TIdBytes;
var
  ch: Char;
  i: Integer;
begin
  SetLength(Result, Length(InString));

  i := 0;
  for ch in InString do
  begin
    Result[i] := Ord(ch);
    inc(i);
  end;
end;

 

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
×