Anzeige:
Ergebnis 1 bis 2 von 2

Thema: [DELPHI] FindComponent-Problem

  1. #1
    Registrierter Benutzer
    Registriert seit
    08.03.2001
    Ort
    FStone,D
    Beiträge
    186

    [DELPHI] FindComponent-Problem

    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;

  2. #2
    Registrierter Benutzer
    Registriert seit
    08.03.2001
    Ort
    FStone,D
    Beiträge
    186

    hmm,

    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.

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •