sizeof为什么执行不到?

Question

var
  FS: TFileStream;
  Str: string[13];
  N: Integer;
  I: Integer;
  xx: integer;
begin
  FS := TFileStream.Create('eg.dat', fmOpenRead);
  try
    I := 1;
    repeat
      xx:=sizeof(str);
      FS.Read(Str, SizeOf(Str));
      xx:=sizeof(str);
      Self.StringGrid.Cells[0, I] := Str;
      xx:=sizeof(str);
      FS.Read(N, SizeOf(N));
      Self.StringGrid.Cells[1, I] := IntToStr(N + 10);
      Inc(I);
    until FS.Position >= FS.Size;
  finally
    FS.Free();
    FS := nil;
  end;
xx:=sizeof(str);这句的前面\后面的语句都执行,为什么单单跳过这句不执行?

Answer 1

因为你在后面并没有使用到XX这个变量所以Delphi编译器自动将此句优化掉了

Answer 2

优化掉了
加个showmessage(inttostr(xx));
就行了