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;

[DeddyH]

Wenn es die Unit unter Delphi 5 noch nicht gibt, kannst Du den Typ auch selbst definieren.

Zitat von Delphi 7-Hilfe:

Delphi-Quellcode:

type
  TIntegerDynArray = array of Integer;

P.S.: Achja, Willkommen in der DP

[Oldy]

Danke habs auch gleich gemacht.
Funktioniert
Danke dir

Doch ein Problem hab iczh grad noch.
wenn ich einem Objekt jetzt den Focus geben will, kommt "Ein Deaktiviertes oder Unsichtbares fenster kann keinen Fokus erhalten"



wie kann ichd as beheben?

[Sharky]

Zitat von Oldy:

.... Doch ein Problem hab iczh grad noch. ...

Hai Oldy,

mache bitte für jede Frage einen einzelnen Thread auf; und suche vorher mal ob es zu diesem Thema nicht schon etwas gibt.
Sonst wird es schnell unübersichtlich.

Danke und Herzlich Willkommen in der Delphi-PRAXiS