Что выведет на экран данный код?, Посмотрите для разных компиляторов Опции

[TarasBer]

var
  S: string;
  W,V: WideString;

begin
  S := 'OLOLO';
  S := '' + Copy(S, 100500, 1);
  WriteLn(S);                     //

  W := 'LOOL';
  V := '' + Copy(W, 100500, 1);
  W := '' + Copy(W, 100500, 1);
  WriteLn(V);                     //
  WriteLn(W);                     //

  W := 'LOOL';
  W := Copy(W, 100500, 1);
  WriteLn(W);                     //

  WriteLn('that''s all');
end.

[Krjuger]

Если внести некоторые изменения по типу 100500 заменить 10050,а то не влезает в размер константы, и заменить WideString; на String, nо он уже банально делает отступы на несколько строк и печатает that all,но запускалось через DosBox. В Embarcadero 2010 тоже самое.

Сообщение отредактировано: Krjuger - 29.12.2011 17:53