String Umdrehen

[Hawkeye219]

Delphi-Quellcode:

var idx : Integer;
    ch : Char;
    s : string;
begin
  s := 'Test';

  // Das wird vom _Compiler_ zurückgewiesen, weil er den Zugriff über Index 0 erkennt
  ch := s[0];

  // Das kann der Compiler nicht erkennen, das Ergebnis ist unbrauchbar
  {$R-}
  idx := 0;
  ch := s[idx];

  // Das kann der Compiler nicht erkennen, zur Laufzeit wird eine Exception geworfen
  {$R+}
  idx := 0;
  ch := s[idx];
end;

Gruß Hawkeye