While-Schleife wird Ignoriert ?!?!

[Nalincah]

Zitat:

[Hinweis] uDatevExport.pas(404): FOR oder WHILE Schleife wird nicht durchlaufen - gelöscht

zeigt der mir an.

Warum? Hier der source:

Delphi-Quellcode:

MS.Write(s[1],1);
Inc(ByteCount);
// Restliche Platz mit Füllzeichen auffüllen (Bis 256 Bytes)
s := StringOfChar(#00,256-ByteCount);
MS.Write(s[1],Length(s));

while ((SizeOf(FS_ED) + SizeOf(MS)) mod 256 = 0) do
begin
  s := #00;
  FS_ED.Write(s,1);
end;
FS_ED.Position := SizeOf(FS_ED);