AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Überprüfen ob ein Objekt existiert aber wie?
Thema durchsuchen
Ansicht
Themen-Optionen

Überprüfen ob ein Objekt existiert aber wie?

Ein Thema von Schuster · begonnen am 3. Jan 2005 · letzter Beitrag vom 27. Dez 2020
 
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.556 Beiträge
 
Delphi 12 Athens
 
#38

AW: Überprüfen ob ein Objekt existiert aber wie?

  Alt 27. Dez 2020, 21:40
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 Delphi-Referenz durchsuchenFindGlobalComponent, 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.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (27. Dez 2020 um 23:36 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz