AW: 0-Based Strings ab XE4
Zitat:
|
AW: 0-Based Strings ab XE4
Na das mit der Konstante ist gar nicht mal schlecht
Delphi-Quellcode:
const FIRSTINDEX = 1;
if Pos('xy',string)>=FIRSTINDEX then ... |
AW: 0-Based Strings ab XE4
Ja, aber eben in diesem Fall nicht pauschal auf "1" setzen, sondern die Dynamik nutzen:
Delphi-Quellcode:
Der "Witz" dabei, dass die Funktion "Low()" hier keine konkrete Variable, sondern den String-Typ als solchen bekommt.
procedure TForm1.Button1Click(Sender: TObject);
const thirdChar = Low(string) + 2; var s : string; begin s:= 'Hallo'; ShowMessage( s[thirdChar] ); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:28 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz