Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Schleife ? (https://www.delphipraxis.net/48928-schleife.html)

Daniel G 2. Jul 2005 21:51

Re: Schleife ?
 
Zitat:

Zitat von Vader
hallo ,

danke, das von spider das habe ich gesucht, aber auch danke für die anderen tipps !

mfg vader

Aber genau das hatte doch Luckie schon genannt... :gruebel:

Die Muhkuh 2. Jul 2005 21:53

Re: Schleife ?
 
Zitat:

Zitat von Daniel G
Zitat:

Zitat von Vader
hallo ,

danke, das von spider das habe ich gesucht, aber auch danke für die anderen tipps !

mfg vader

Aber genau das hatte doch Luckie schon genannt... :gruebel:

Dort musste er aber selbst suchen :zwinker:

supermuckl 2. Jul 2005 22:25

Re: Schleife ?
 
spider:
edit <> Edit

bigg 3. Jul 2005 01:04

Re: Schleife ?
 
Warum soll man mit FindComponent suchen?
Effizienter und schneller geht das so:

Delphi-Quellcode:
[..]
var i: Integer;
begin for i := 0 to Self.ComponentCount -1 do
begin if Self.Components[i] is TEdit then
begin

TEdit(Self.Components[i]).Text := '';

end;
end;
end;
FindComponet würde bei jedem Aufruf diese Schleife durchlaufen und
ist daher wesentlich langsamer.

Robert_G 3. Jul 2005 01:41

Re: Schleife ?
 
Zitat:

Zitat von bigg
FindComponet würde bei jedem Aufruf diese Schleife durchlaufen und
ist daher wesentlich langsamer.

Amen! :angle2:
MeineMenung zu FindComponent habe ich wohl schon zu oft geäußert. ;)

bigg 3. Jul 2005 01:43

Re: Schleife ?
 
Zitat:

Zitat von Robert_G
Zitat:

Zitat von bigg
FindComponet würde bei jedem Aufruf diese Schleife durchlaufen und
ist daher wesentlich langsamer.

Amen! :angle2:
MeineMenung zu FindComponent habe ich wohl schon zu oft geäußert. ;)

Und die wäre liebster Robert :gruebel: :lol:

BlackJack 3. Jul 2005 11:35

Re: Schleife ?
 
Zitat:

Zitat von bigg
Warum soll man mit FindComponent suchen?
Effizienter und schneller geht das so:

Delphi-Quellcode:
[..]
var i: Integer;
begin for i := 0 to Self.ComponentCount -1 do
begin if Self.Components[i] is TEdit then
begin

TEdit(Self.Components[i]).Text := '';

end;
end;
end;

naja aber vielleicht hat er ja noch andere edits, die nicht EditX heissen, und bei denen würde dann auch noch der Text geändert. man sollte in dieser schleife dann vielleicht noch überprüfen, ob der name der Komponente auch wirklich "Edit"+Zahl enthält.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:35 Uhr.
Seite 2 von 2     12   

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