Schleife ?

[Vader]

hallo,

wie kann man das auch eleganter und effektiver lösen:

Delphi-Quellcode:

edit1.text:='0';
edit2.text:='0';
edit3.text:='0';
edit4.text:='0';
edit5.text:='0';
edit6.text:='0';
.......

habe 100 editfelder mit diesem wert zum füllen,
gibts da eine schleife oder was, damit ich nicht in alle 100 edit's den code schreiben muß ???

mfg vder

[Luckie]

FindComponent. Desweiteren, meinst du nicht auch, dass eine Tabelle (Listview, StringGrid) besser geeignet wäre?

[Vader]

hallo,

ich will nichts verändern, mein programm ist schon lange im einsatz, die editfelder habe ich gebraucht
um visuell aufzuteilen auf der form !

mfg vader

[Matze]

Zitat:

Zitat von Vader

ich will nichts verändern ...

Wie willst du das denn lösen, ohne den Code zu verändern?

Die einzige Möglichkeit, das elegant zu lösen ist die, die Luckie dir genannt hat.

[Meflin]

er will sein Interface nicht verändern ;) sprich keine ListBox oder sonstwas statt labels verwenden

[Daniel G]

Zitat:

Zitat von Matze

Zitat:

Zitat von Vader

ich will nichts verändern ...

Wie willst du das denn lösen, ohne den Code zu verändern?

Die einzige Möglichkeit, das elegant zu lösen ist die, die Luckie dir genannt hat.

Ich denke, er bezieht sich wohl eher auf diese Aussage:

Zitat:

Zitat von Luckie

[...]dass eine Tabelle (Listview, StringGrid) besser geeignet wäre?

[Edit]Huch? Boah, was zeitgleich... Da hatte nicht mal der obligatorische rote Kasten Zeit gehabt zum Reagieren[/Edit]

[Vader]

hallo,

ich glaube ihr versteht mich nicht, gibts keinen anderen code wie das zu lösen ist, ich will keine andere komponente als edit, ich wollte nur fragen ob man den wert '0' auch durch eine schleife den edit's zuweisen könnte ?


mfg vader

[Die Muhkuh]

Delphi-Quellcode:

for I := 0 to AnzahlEdits do
begin
  TEdit(FindComponent('edit' + IntToStr(I))).Text := '0';
end;

{
  Die Edits müssen Edit0, Edit1, Edit2, Editx heißen
}

[Vader]

hallo ,

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

mfg vader

[Die Muhkuh]

Zitat:

Zitat von Vader

hallo ,

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

mfg vader

Aber, wie Luckie sagte, eine Listview wäre bestimmt besser geeignet als 100 Edits ;)

[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:

[Die Muhkuh]

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]

spider:
edit <> Edit

[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;

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

[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. ;)

[bigg]

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]

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.