Substrings Extract Delimited Values

[Uwe Raabe]

Zitat von Sequitar:

- Ziel: es ist im Anschluss zu prüfen ob ein bestimmter Wert in dieser/n Liste/n vorkommt. Daher (denke ich) müsste ich die Resource bei programmstart durchsuchbar laden

Delphi-Quellcode:

type
  TMyStrings = class
  private
    FArr: TArray<string>;
  public
    procedure LoadStrings(const Value: string);
    function ContainsItem(const Item: string): Boolean;
  end;

function TMyStrings.ContainsItem(const Item: string): Boolean;
var
  idx: Integer;
begin
  Result := TArray.BinarySearch<string>(FArr, Item, idx);
end;

procedure TMyStrings.LoadStrings(const Value: string);
begin
  FArr := Value.Split([',']);
  TArray.Sort<string>(FArr);
end;