Byte-toString Wandler

[Klaus01]

Delphi-Quellcode:

repeat 
begin 
end; 
  // setzen von countbytes 
  countbytes:=countbytes+1; 
  // lesen und umwandeln in string 
  streamconv.read(readtostr,1); 
  strbuffer:=inttostr(readtostr); 
  // formatieren 

  if length(strbuffer)=3 then 
    begin 
      transferstr:=transferstr+strbuffer; 
      strbuffer:=''; 
    end 
  else 
    begin 
     if lengt(strbuffer)=2 then 
       begin 
         strbuffer:='0'+strbuffer; 
         transferstr:=transferstr+strbuffer; 
         strbuffer:=''; 
       end; 

     if length(strbuffer)=1 then 
       begin 
         strbuffer:='00'+strbuffer; 
         transferstr:=transferstr+strbuffer; 
         strbuffer:=''; 
       end; 

     if length(strbuffer)=0 then 
       begin 
         log.lines.add('error in file : '+fn+' @ pos : '+inttostr(countbytes)); 
         strbuffer:=''; 
       end; 
    end; 

end; 
until countbytes=streamconv.size;

Delphi-Quellcode:

repeat 
  begin 
    // setzen von countbytes 
    countbytes:=countbytes+1; 

    // lesen und umwandeln in string 
    streamconv.read(readtostr,1); 
    strbuffer:=inttostr(readtostr); 
    if length(strbuffer)=0 then 
       begin 
         log.lines.add('error in file : '+fn+' @ pos : '+inttostr(countbytes)); 
         strbuffer:=''; 
       end
    else
      begin
        while length(strbuffer) < 3 do
          strbuffer:='0'+strbuffer;
        transferstr:=transferstr+strbuffer; 
      end;
  end; 
until countbytes=streamconv.size;

Nun, ob der Code schneller ist weiß ich nicht, kürzer ist er jedenfalls.

Grüße
Klaus