Question

I’m reading some data from memory, and this area of memory is in Unicode. So to make one ansi string I need something like this:

  while CharInSet(Chr(Ord(Buff[aux])), ['0'..'9', #0]) do
    begin
      Target:= Target + Chr(Ord(Buff[aux]));
      inc(aux);
    end;

Where Buff is array of Bytes and Target is string. I just want keep getting Buff and adding in Target while it’s 0..9, but when it finds NULL memory char (00), it just stops. How can I keep adding data in Target until first letter or non-numeric character?? The #0 has no effect.

Answer 1

I would not even bother with CharInSet() since you are dealing with bytes and not characters:

var
  b: Byte;

while aux < Length(Buff) do
begin
  b := Buff[aux];
  if ((b >= Ord('0')) and (b <= Ord('9'))) or (b = 0) then
  begin
    Target := Target + Char(Buff[aux]); 
    Inc(aux); 
  end else
    Break;
end;