TIntegerDynArray > Unit Types? (Unit fehlt)

[Oldy]

Hallo ihr

ich hätte mal ne klene´ frage

hab schon viel rumgegruscht, bis ich (auch hier) das gefunden hab :
Forumthread
(gemeinter Code siehe unten)

doch, wenn ich unter Uses "Types" ein gebe, schreit mir mein nettes Delphi 5 entgegen, es gibt diese Unit nicht.
Wo finde ich die?
oder kann mir wer den ausschnitt aus dieser unit geben, bzw die ganze?



Hoffe, es gibt schnell ne antwort

Alex

Delphi-Quellcode:

uses
  Types;

function FindTextAll(re: TRichEdit; sText: string; options: TSearchTypes): TIntegerDynArray;
var
  iStart, iFound, iLength: integer;
begin
  SetLength(Result, 0);
  iStart := 0;
  iLength := Length(re.Lines.Text);
  while iStart < (iLength - Length(sText)) do
  begin
    iFound := re.FindText(sText, iStart, iLength - iStart, options);
    if iFound = -1 then
      Exit;
    SetLength(Result, Succ(Length(Result)));
    Result[High(Result)] := iFound;
    iStart := iFound + Length(sText);
  end;
end;

procedure TDemoForm.FindButtonClick(Sender: TObject);
var
  ida: TIntegerDynArray;
  i: integer;
  sText: string;
begin
  sText := FindEdit.Text;
  ida := FindTextAll(RichEdit, sText, []);
  for i := Low(ida) to High(ida) do
    with RichEdit do
    begin
      SelStart := ida[i];
      SelLength := Length(sText);
      SelAttributes.Color := clBlue;
      SelAttributes.Style := [fsBold];
    end;
  RichEdit.SetFocus;
end;