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);

[Bernhard Geyer]

FS_ED und MS sind beides Objektreferenzen (Zeiger) und diese sind immer 4 Byte groß (SizeOf(...)).
D.h

Delphi-Quellcode:

while ((SizeOf(FS_ED) + SizeOf(MS)) mod 256 = 0)

liefert immer False und schleife wird nicht durchlaufen.

Delphi-Quellcode:

while ((FS_ED.Size + MS.Size) mod 256 = 0) do

sollte funktionieren, da jetzt die größe des Streams (welches Du verwendest) abgefragt wird.

[Nalincah]

Delphi-Quellcode:

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

Hier wird doch FS_ED eigentlich jedesmal um 1 größer, oder?
Bei mir irgendwie nicht?

[GuenterS]

Der Inhalt schon die größe des Zeigers ändert sich aber nicht.