Janilabo | TSAContains() [Simba]

function TSAContains(x: string; TSA: array of string): Boolean;
var
  i, h: Integer;
begin
  h := High(TSA);
  if h > -1 then
    for i := 0 to h do
    begin
      Result := (x = TSA[i]);
      if Result then
        Exit;
    end;
end;

var
  i: Integer;
  s: string;
  TSA: array of string;

begin
  ClearDebug;
  TSA := ['Test0', 'Test1', 'Test2', 'Test3', 'Test4',
          'Test5', 'Test6', 'Test7', 'Test8', 'Test9'];
  for i := -1 to 10 do
  begin
    s := 'Test' + IntToStr(i);
    if TSAContains(s, TSA) then
      WriteLn('TSA contains "' + s + '"!')
    else
      WriteLn('TSA doesn''t contain "' + s + '".');
  end;
  SetLength(TSA, 0);
end.