Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten (https://www.delphipraxis.net/75327-tedit-text-ueber-findcomponent-zuwesien-2-moeglichkeiten.html)

Mazel 17. Aug 2006 19:02


TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Hallo,

in Delphi habe ich 4 Möglichkeiten (zumindest kenn ich nicht mehr) einem Editfeld über FindComponent einen anderen Text zu zuweisen, wobei 2 Möglichkeiten mit "with do" verbunden werden. Nun die Frage, warum gibt es mehrere Möglichkeiten und welche von denen ist die bessere?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  TEdit(FindComponent('Edit1')).Text:='Text1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  (FindComponent('Edit1') as TEdit).Text:='Text2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  with (FindComponent('Edit1') as TEdit) do Text:='Text3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 with TEdit(FindComponent('Edit1')) do Text:='Text4';
end;
Gruß
Mazel

jfheins 17. Aug 2006 19:09

Re: TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Zitat:

welche von denen ist die bessere?
Ich würde die zweite vorziehen, weil sie einen "weichen" Cast verwendet, und with - in in diesem Fall unnötige - Missverständnisse produzieren könnte.

Zitat:

Zitat von Mazel
warum gibt es mehrere Möglichkeiten

Warum gibt es for-Schleifen, wenn man das auch mit while-Schleifen machen könnte?
(Ich weis das, ich hab' unter PHP jahrelang statt for- while-Schleifen verwendet :mrgreen: )

Es gibt (fast) immer mehrere Wege, etwas zu tun.

Mazel 17. Aug 2006 19:37

Re: TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Hi,

das es meist 1,2 oder mehr Wege gibt, etwas zu verabeiten ist klar da für bestimmte Zwecke eine bestimmte Routine besser ist. Aber hier in diesem Fall wär es doch eigentlich egal welche von den 4 man verwendet. Bei einer for-Schleife wir die Variable selber erhöht. Bei einer Repeat Until Schleife ist die Abfrage der Bedingung am Ende bei einer While-Schleife am Anfang, was die Unterscheide sind, aber hier kann man in jeder Situation eine der 4 verwenden, denke ich zumindest.

Zitat:

Zitat von jfheins
Ich würde die zweite vorziehen, weil sie einen "weichen" Cast verwendet

Was meinst du Cast?

mkinzler 17. Aug 2006 19:38

Re: TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Zitat:

Was meinst du Cast?
Cast gleich Typkonvertierung. Ein Objekt mit typ TObjekt wird als eine Objekt eines anderen Typs behandelt(hier TEdit).

Mazel 17. Aug 2006 19:41

Re: TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Ah,

ok. Danke. Solche Bezeichnungen sind mir fremd ;).

Khabarakh 17. Aug 2006 19:56

Re: TEdit.Text über FindComponent zuwesien - 2 Möglichkeiten
 
Zitat:

Zitat von Mazel
[...], aber hier kann man in jeder Situation eine der 4 verwenden, denke ich zumindest.

Du kannst auch in jeder Situation eine While-Schleife benutzen (selbst wenn du überhaupt keine Schleife brauchst ;) ).

Allerdings kann man nicht wirklich bestimmen, welche der vier Varianten die beste ist, weil alle vier zwei Macken haben:
1. Sie prüfen nicht, ob das Ergebnis von FindComponent nil ist. Falls dies der Fall sein sollte, werfen dir alle vier Varianten eine AV um die Ohren.
2. sie verwenden FindComponent ;) . Die wirklich beste Variante würde eine Liste zur Verwaltung der Edits benutzen.


Zitat:

Zitat von mkinzler
[Ein Objekt mit typ TObjekt wird als eine Objekt eines anderen Typs behandelt(hier TEdit).

:?:
Das Objekt wird immer vom Typ TEdit bleiben, Objekte ändern niemals ihren Typ. Durch den (harten) Cast ändert sich lediglich die Interpretation des Compilers, sodass beispielsweise einer TEdit-Variablen der Inhalt einer TObject-Variablen zugewiesen werden kann (sollte das Objekt doch kein TEdit sein, knallt's dann eben zur Laufzeit).


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz