0-Based Strings ab XE4

[Daniel]

Zitat von Furtbichler:

Ich habe z.B. eine sehr große Anwendung unter D6. Die werde ich nicht portieren. Der Kunde zahlt es nicht und es wäre Selbstmord. Also habe ich bis ich in Rente gehe eine VM mit D6 am Laufen.

Von D6 auf iOS ... dass das mit gewissem Aufwand verbunden ist, das ist ... sagen wir ... "wenig überraschend". Die String-Änderungen betreffen den NEXTGEN-Compiler.

[sh17]

Na das mit der Konstante ist gar nicht mal schlecht

Delphi-Quellcode:

const FIRSTINDEX = 1;

if Pos('xy',string)>=FIRSTINDEX then ...

[Daniel]

Ja, aber eben in diesem Fall nicht pauschal auf "1" setzen, sondern die Dynamik nutzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  thirdChar = Low(string) + 2;
var s : string;
begin
  s:= 'Hallo';
  ShowMessage( s[thirdChar] );
end;

Der "Witz" dabei, dass die Funktion "Low()" hier keine konkrete Variable, sondern den String-Typ als solchen bekommt.