Home/ Questions/Q 8996619
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-15T23:46:43+00:00

I would like to read a UTF-8 text file byte by byte and get

  • 0

I would like to read a UTF-8 text file byte by byte and get the ascii value representation of each byte in the file. Can this be done? If so, what is the best method?

My goal is to then replace 2 byte combinations that i find with one byte (these are set conditions that I have prepared)

for example, If I find a 197 followed by a 158 (decimal representations), i will replace it with a single byte 17

I don’t want to use the standard delphi IO operations

AssignFile
ReSet
ReWrite(OutFile);
ReadLn
WriteLn
CloseFile

Is there a better method? Can this be done using TStream (Reader & Writer)?

Here is an example test I am using. I know there is a character (350) (two bytes) starting in column 84. When viewed in a hex editor, the character consists of 197 + 158 – so i am trying to find the 198 using my delphi code and can’t seem to find it

FS1:= TFileStream.Create(ParamStr1, fmOpenRead);
try
 FS1.Seek(0, soBeginning);
 FS1.Position:= FS1.Position + 84;
 FS1.Read(B, SizeOf(B));
 if ord(B) = 197 then showMessage('True') else ShowMessage('False');
finally
 FS1.Free;
end;
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    My understanding is that you want to convert a text file from UTF-8 to ASCII. That’s quite simple:

    StringList.LoadFromFile(UTF8FileName, TEncoding.UTF8);
StringList.SaveToFile(ASCIIFileName, TEncoding.ASCII);

    The runtime library comes with all sorts of functionality to convert between different text encodings. Surely you don’t want to attempt to replicate this functionality yourself?

    I trust you realise that this conversion is liable to lose data. Characters with ordinal greater than 127 cannot be represented in ASCII. In fact every code point that requires more than 1 octet in UTF-8 cannot be represented in ASCII.

    • 0