Új hozzászólás Aktív témák

• #655 killerjohn addikt g4dg3t #652

  Új Válasz 2005-03-11 13:05:46 #655

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  killerjohn

  addikt

  válasz g4dg3t #652 üzenetére

  VCL :
  
  TForm
  
  property Components[Index: Integer]: TComponent read GetComponent;
  
  function TComponent.GetComponent(AIndex: Integer): TComponent;
  begin
  if FComponents = nil then TList.Error(@SListIndexError, AIndex);
  Result := FComponents[AIndex];
  end;
  
  
  function TComponent.FindComponent(const AName: string): TComponent;
  var
  I: Integer;
  begin
  if (AName <> '') and (FComponents <> nil) then
  for I := 0 to FComponents.Count - 1 do
  begin
  Result := FComponents;
  if SameText(Result.FName, AName) then Exit;
  end;
  Result := nil;
  end;
  
  
  a függvényhíváson belül már a saját, közvetlen elérésű adattagjával dolgozik az osztály, és nem a GetComponent függvényen keresztül ad vissza értéket, amikor a Components[] tömb elemeit olvasod....
  
  Tehát még gyorsabb is.
  
  

Új hozzászólás Aktív témák