Überprüfen ob ein Objekt existiert aber wie?

[davtix]

Code:

unit unitname;

interface

uses System.Classes,


function FindComponentEx(const Name: string): TComponent;
var
  FormName: string;
  CompName: string;
  P: Integer;
  Found: Boolean;
  Form: TForm;
  I: Integer;
begin
  // Split up in a valid form and a valid component name
  if ( Name = '' ) then
    begin
      EXIT;

      raise Exception.Create('No valid form name given');


    end;

  P := Pos('.', Name);
  if P = 0 then
  begin
    EXIT;
    raise Exception.Create('No valid form name given');
  end;
  FormName := Copy(Name, 1, P - 1);
  CompName := Copy(Name, P + 1, High(Integer));
  Found    := False;
  // find the form
  for I := 0 to Screen.FormCount - 1 do
  begin
    Form := Screen.Forms[I];
    // case insensitive comparing
    if AnsiSameText(Form.Name, FormName) then
    begin
      Found := True;
      Break;
    end;
  end;
  if Found then
  begin
    for I := 0 to Form.ComponentCount - 1 do
    begin
      Result := Form.Components[I];
      if AnsiSameText(Result.Name, CompName) then Exit;
    end;
  end;
  Result := nil;
end;

Code:

 
    procedure oder function .... ; 
    var compo :TComponent;
    begin 
 
        compo := nil;
        compo := FindComponentEx( 'Form4.tempStringGrid101' );
        if ( compo <> nil ) and (compo.ClassType = TJvStringGrid ) then
          begin
            log(9,'add_Entry_database->tempSG4 exist --> FreeAndNil tempSG4');
            //compo:= nil;
            TJvStringGrid( compo ).Free;
          end;
    
     end;

[himitsu]

Bei Copy kann man den letzten Parameter weglassen. Per Default geht es dann bis zum Ende.

Die letzte Schleife ist auch nutzlos, denn FindComponent ist zufällig eine Methode.
Form.FindComponent

Und wenn man dann alles rauskürzt, in etwas aktuelleren Delphis der letzten paar Jahre, dann
(das mit dem VAR seit 10.4)

Delphi-Quellcode:

function FindComponentEx(const Name: string): TComponent;
begin
  var Parts := Name.Split(['.']);
  if Length(Parts) <> 2 then
    raise Exception.Create('No valid name given');
  for var i := Screen.FormCount - 1 downto 0 do
    if AnsiSameText(Screen.Forms[i].Name, Parts[0]) then
      Exit(Screen.Forms[i].FindComponent(Parts[1]));
  Result := nil;
end;

Dann noch bissl weitergesucht und man findet FindGlobalComponent, was auch noch die erste Schleife ersetzt.

Delphi-Quellcode:

function FindComponentEx(const Name: string): TComponent;
begin
  var Parts := Name.Split(['.']);
  if Length(Parts) <> 2 then
    raise Exception.Create('No valid name given');
  Result := FindGlobalComponent(Parts[0]);  // TForm oder TDataMudule
  if Assigned(Result) then
    Exit(Result.FindComponent(Parts[1]));
  Result := nil;
end;

Und weil mir grad langweilig wurde ... naja

Delphi-Quellcode:

function FindComponentEx(Name: string): TComponent;
begin
  Name := Name.Replace('.', '|');
  Result := FindGlobalComponent(GetShortHint(Name));
  if Assigned(Result) then
    Result := Result.FindComponent(GetLongHint(Name));
end;

// oder
function FindComponentEx(Name: string): TComponent;
begin
  Assert(Name.Contains('.'));  // Assert(ContainsStr(Name, '.'));
  Result := FindGlobalComponent(Name.Split(['.'])[0]);
  if Assigned(Result) then
    Result := Result.FindComponent(Name.Split(['.'])[1]);
end;

// oder
tausende andere Lösungswege

GetShortHint/GetLongHint sind Split-Funktionen, die eigentlich für was Anderes gedacht sind, aber die sind einfach zu praktisch,
auch wenn man sie mit einem Copy+Pos nachbauen kann.
GetShortHint(ReplaceStr(Name, '.', '|')) und Copy(Name, 1, Pos('.', Name - 1)) liefern das gleiche Result.

[davtix]

ohaaa... danke @himitsu

wer ich morgen mal umschreiben bei mir