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