Liste bei jedem klick auf Button nächsten Index anzeigen

[Schnittcher]

Hallo,

ich habe ein kleines Problem ich will bei jedem Klick auf einen Button den nächsten Index der Liste anzeigen.
Ich habe es so versucht:

Delphi-Quellcode:

procedure TForm1.cmdNextClick(Sender: TObject);
var
  x: integer;
  pAuto: IAuto;
begin
  x:= x+1;
    pAuto := AutoList.Items[x];
    edBesitzer.Text := pAuto.ErgebnisName;
    edKW.Text := FloatToStr(pAuto.ErgebnisKW);
    edPS.Text := FloatToStr(pAuto.ErgebnisPS);
end;

Kann mir jemand meinen Fehler sagen?

In x wird immer ein sehr hoher Wert gespeichert. Wieso?

Gruß,
Schnittcher

[XXcD]

Du hast X inerhalb der prozedur cmdNextClick deklariert, du musst diese aber direkt in Form1 deklarieren.
Am besten im private Bereich.
Beim anzeigen des ersten Items musst die X 0 zuweisen also x:=0;
Dann müsste das funktionieren

[Andreas L.]

x muss eine globale Variable oder eine Eigenschaft der Form sein und im OnCreate des Forms mit 0 initialisiert werden.

[Schnittcher]

Hallo,

das habe ich mir auch schon überlegt. Danke für deine Antwort.

Aber wieso bekomme ich einen Wert in x über 4000?

Gruß,
Schnittcher

[Andreas L.]

Zitat:

Zitat von Schnittcher

Hallo,

das habe ich mir auch schon überlegt. Danke für deine Antwort.

Aber wieso bekomme ich einen Wert in x über 4000?

Gruß,
Schnittcher

Wenn eine Variable nicht initialisiert wird, wird ihr ein Zufallswert zugewiesen.

[Schnittcher]

Hallo,

achso okay danke.

Bei VB war es so, dass ich es so machen konnte wie ich es jetzt hatte, kann das sein?

Gruß,
Schnittcher

[hoika]

Hallo,

das mit dem VB glaube ich nicht.
Ach in VB kannst du nicht eine lokale Variable hochzählen,
und erwarten, dass sie beim nächsten Klick den Wert beibehalten hat.

Das Dim x as Integer (?) muss auch dort Modul-Code stehen.


Heiko

[Schnittcher]

Hallo,

okay, dann verwechsel ich jetzt etwas.

Aber naja danke für eure Hilfe.

Gruß,
Schnittcher