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
Code:
procedure Tfrm_dlg_vwkstaffellerzeugen.cmd_leerenClick(Sender: 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;
Code:
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;
Lesezeichen