Aktuelle Datei finden

[himitsu]

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.