In aktuellen Delphis kann man ja nun wunderschön mit Arrays rechnen ... so als wären es Strings. (drum wurden diese Features damals auch mit "new string-like array operations" extrem enthusiastisch vorgestellt)
Delphi-Quellcode:
var Files :=
TDirectory.GetFiles(Dir, '*.fus')
+ TDirectory.GetFiles(Dir, '*.blubb')
+ TDirectory.GetFiles(Dir, '*.holladiewaldfee');
TArray.Sort<string>(Files);
ShowMessage(string.Join(sLineBreak, Files));
Delphi-Quellcode:
var arr: TArray<string>; // oder TStringDynArray oder array of string oder ...
arr := ['abc', '123', 'xyz'];
s := 'def';
arr := arr + [s];
arr := arr + arr;
TArray.Sort<string>(arr);
if TArray.BinarySearch<string>(arr, 'xyz', i) then
ShowMessage(i.ToString);
if TArray.Contains<string>(arr, 'abc') then
var i := TArray.IndexOf<string>(arr, 'def');
Sowie Insert und Delete können endlich auch für Arrays benutzt werden.