Member Avatar for especta

byte range is 0x00 to 0xFF haw to write to text file
like this
byte 0x00 =
byte 0x01 =
byte 0x02 =
...... all to byte 0xFF
Thanks.

  • 2 Contributors
  • 2 Replies
  • 810 Views
  • 3 Days Discussion Span
  • Latest Post Latest Post by especta
Member Avatar for fayyaz

byte range is 0x00 to 0xFF haw to write to text file
like this
byte 0x00 =
byte 0x01 =
byte 0x02 =
...... all to byte 0xFF
Thanks.

Hi
this is the solotion of your problem

Var
    byt:byte;
    OutFile:TextFile;
begin
    Assignfile(OutFile,'OutFile.txt');
    Rewrite(OutFile);
    For Byt:=0 to 255 do
      Writeln(OutFile,'Byte 0X '+InttoHex(Byt,2));
   CloseFile(OutFile);
End

This Routin is written by delphi sintax if you want it to pascal sintax you mast do some change on it

commented: good example for my problem +1
Member Avatar for especta

Hi
this is the solotion of your problem

Var
    byt:byte;
    OutFile:TextFile;
begin
    Assignfile(OutFile,'OutFile.txt');
    Rewrite(OutFile);
    For Byt:=0 to 255 do
      Writeln(OutFile,'Byte 0X '+InttoHex(Byt,2));
   CloseFile(OutFile);
End

This Routin is written by delphi sintax if you want it to pascal sintax you mast do some change on it

Thanks for replay this is solution of my Problem.
Big Thanks.

Edited by especta because: n/a
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.