[DELPHI] FindComponent-Problem

[JoelH]

Warum löscht der erste Codeteil zwar die Editfelder der zweite füllt sie aber nicht ?

Text1 und Text2 sind belegt mit Daaten das ist sicher trotzdem bleiben die Editfelder leer :(



procedure Tfrm_dlg_vwkstaffellerzeugen.cmd_leerenClick(Sende r: TObject);
var i : integer;
begin
i := 1;
while (i <= 21) do
begin
TEdit(FindComponent('Edit'+IntToStr(i))).Text := '';
TEdit(FindComponent('Edit'+IntToStr(i+22))).Text := '';
inc(i);
end;
end;




i := 1;
while not(eof) do
begin
text1 := FieldByName('bis').asString;
Text2 := FieldByName('betrag').asString;
TEdit(FindComponent('Edit'+IntToStr(i))).Text := text1;
TEdit(FindComponent('Edit'+IntToStr(i+22))).Text := text2;
next;
inc(i);
end;

[JoelH]

habs gelöst. Um den zweiten Code lag noch ein with auf einer TQuery Komponenten. Wenn man die Schleife da rausnimmt geht es plötzlich. Komisch.