Debugging in der IDE

[himitsu]

Ein mittelschwerer Fall:

Delphi-Quellcode:

var
  S: String;
  i, i2: Integer;
  C, C2, C3: Cardinal;
begin
  SetLength(S, 10000000);

  // CPU hochfahren
  for i := 1 to Length(S) do
    if S[i] = ' ' then ;

  {$RANGECHECKS ON}
  C := GetTickCount;
  for i2 := 1 to 20 do
    for i := 1 to Length(S) do
      if S[i] = ' ' then ;
  C2 := GetTickCount - C;

  {$RANGECHECKS OFF}
  C := GetTickCount;
  for i2 := 1 to 20 do
    for i := 1 to Length(S) do
      if S[i] = ' ' then ;
  C3 := GetTickCount - C;

  ShowMessage(Format('mit = %d ms | ohne = %d ms | +%.1n%%',
    [C2, C3, (C2 - C3) / C3 * 100]));

Aber wenn eh nicht viel gemacht wird, dann stört es nicht unbedingt.



*konzentrier*