Hallo zusammen,
Ihr habt alle bestimmt schon die Meldung "Auf xxxx zugewiesener Wert wird niemals genutzt" gehabt. Ist ja auch nicht weiter schlimm, solange es bei dem Hinweis bleibt.
Wenn allerdings die entsprechenden Zeilen vom Compiler ignoriert werden, find ich das garnicht lustig. Insbesonders wenn der Hinweis auch noch falsch ist.
Delphi-Quellcode:
if fpos<=pufflen then begin
setlength(pPosListrec^.Positions,pPosListrec^.Positions[0]+2);
inc(pPosListrec^.Positions[0],1);
pPosListrec^.Positions[pPosListrec^.Positions[0]]:=fpos+chkpos;
if fpos>1 then begin
chkpos:=chkpos+fpos-1;
move(buffer[fpos],buffer[1],gelesen+lpos-1-(fpos-1));
move(UpCbuffer[fpos],UpCbuffer[1],gelesen+lpos-1-(fpos-1));
pufflen:=pufflen-(gelesen+lpos-1-(fpos-1));{<------------------------hier gibt's mecker }
if gelesen=lies then { Dateiende noch nicht erreicht}
blockread(edat,buffer[maxbuff-(fpos-2)],fpos-1,gelesen)
else
gelesen:=0; { Dateiende erreicht}
pufflen:=pufflen+gelesen;{<------------------------hier gibt's mecker }
end;
Wie kann ich dem Compiler Seine Starrsinngkeit austreiben ( D7)?
Gruß
K-H