function error
lazarus / 9-Editor

----------------------------------------------------------------------
skaner1900 · 2010-07-30 18:55

Code: [Select] function DECtoHEX(number:integer):string;
.
.
.
function Form1.DECtoHEX(number:integer):string;   <- THIS IS LINE 49 
 ! ! !
var a:integer; b,c:string;
begin
   repeat
   a:=number mod 16;
   number:=number div 16;
   case a of 10 : b:='A'; 11 : b:='B';12 : b:='C';13 : b:='D';14 :
b:='E';15 : b:='F';
          else b:=inttostr(a);
        end;
   c:=concat(b,c)
   until number=0;
   result:=c;
end;
error:
unit1.pas(49,24) Error: class identifier expected

why?

----------------------------------------------------------------------
eny · 2010-07-30 19:07

Better use Class Completion; look it up, it's useful 

There is no 'T' in front of 'Form1':
Code: [Select]function TForm1.DECtoHEX(number:integer):string;
Class Completions takes care of all this tedious stuff...

Try so simplify your code:
Code: [Select]function TForm1.DECtoHEX(number:integer):string;
const HEXCHAR: string[16] = '0123456789ABCDEF';
begin
  result := '';
  repeat
    result := HEXCHAR[number mod 16 + 1] + result;
    number := number div 16;
   until number=0;
end;

or

Code: [Select]function TForm1.DECtoHEX(number:integer):string;
begin
  result := format('%x',[number])
end;

----------------------------------------------------------------------
skaner1900 · 2010-07-30 19:28

oo
it's so easy...
thank you !

----------------------------------------------------------------------
skaner1900 · 2010-07-31 11:19

or...

Code: [Select]function TForm1.DECtoHEX(number:integer):string;
var
s:string;
begin
  s := format('%x',[number]);
  if length(s) =1 then s:='0'+s;
  result:=s;
end;
if you need format #000000, for exemple to html or BB code (font
color)

----------------------------------------------------------------------
Martin_fr · 2010-07-31 12:07

Quote from: skaner1900 on July 31, 2010, 01:19:20 pmCode:
[Select]function TForm1.DECtoHEX(number:integer):string;
  s := format('%x',[number]);
  if length(s) =1 then s:='0'+s;
if you need format #000000, for exemple to html or BB code (font
color)

If you need a specific len:
uses SysUtils;

s:= IntToHex(Num, len);