SpinEdit Fehler: Kein gültiger Integewert

[mkinzler]

Dann schau dir mal im Debugger an, was da drin steht

[JadeFox]

Der Inhalt ist 4, wie angegeben

[haentschman]

Guten Abend...

probier mal:

Delphi-Quellcode:

var i:Integer;
begin
 if Tipp_ok(Tippzahlen) then // = true entfernt
 begin
   sortiere_durch_Auswahl(Tippzahlen);
   zeige_Tip(Tippzahlen);
   SpinEdit7.Enabled:= False; // während der Schleife nicht änderbar
   for i:=1 to SpinEdit7.Value do {in dieser Zeile liegt der Fehler}
   begin
     bestimme_Gewinnzahlen(Gew, zZahl);
     zeige_Gew(Gew, zZahl);
     zeige_Statistik(Rang(Tippzahlen, Gew, zZahl));
   end;
   SpinEdit7.Enabled:= True; // wieder aktiv setzen  
 end
 else
 ShowMessage('Deine Tippzahlen sind nicht gültig');
end;

Objektinspektor des SpinEdit:
- Increment auf 1
- EditorEnabled auf False - du kannst manuell nix eintragen sondern nur blättern (verhindert evt. Fehleingaben)
- MinValue mindestens auf 1, da deine Schleife bei 1 beginnt
- ggf. MaxValue setzen

PS: das mit dem Value wurde schon erklärt.

[stahli]

In meiner Erinnerung ist das so:

Wenn man den alten Text (z.B. "14") markiert und dann z.B. "7" tippt, wird erst '' (also ein Leerstring) verarbeitet und dann "7".
Das würde ich als Fehler in der Komponente bezeichnen.

Brich mal die Verarbeitung ab, wenn Text leer ist bzw. arbeite dann mit 0 weiter.

[JadeFox]

ich hab mal das von haentschman versucht (danke )
aber es funktioniert nicht
jetzt kommt allerdings auch keine fehlermeldung mehr
ich hab mal versucht im objektinspektor das value auf 1 zu setzten aber es setzt sich immer wieder auf 0 zurück, ist das normal?

@stahli: wie ich soll das programm mit 0 als eingabewert starten?

[haentschman]

Zitat:

aber es funktioniert nicht

... ein wenig genauer bitte.

Zitat:

ich hab mal versucht im objektinspektor das value auf 1 zu setzten aber es setzt sich immer wieder auf 0 zurück, ist das normal?

- welche Werte haben MinValue und MaxValue ?

Nachtrag: ich kann jeden Wert in Value setzen.

welche Delphiversion benutzt du ?

[stahli]

Hier mal ein Testprojekt.
Einfach ein SpinEdit und ein Memo und schauen, was das SpinEdit an Werten liefert:

Delphi-Quellcode:

unit fTestSpinEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    Memo1: TMemo;
    procedure SpinEdit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Memo1.Lines.Add('"' + SpinEdit1.Text + '"');
end;

end.

Folgende Werte werden verarbeitet:

Zitat:

"1"
"2"
"3"
"4"
""
"5"

Bis 4 habe ich die Button benutzt, dann den Text markiert und 5 gedrückt.
SpinEdit "feuert" dann mit einem Leerstring.

Die Ereignisbehandlung könntest Du dann z.B. abbrechen.
if SpinEdit.Text = '' then Exit;

[Luckie]

Zitat von stahli:

Bis 4 habe ich die Button benutzt, dann den Text markiert und 5 gedrückt.
SpinEdit "feuert" dann mit einem Leerstring.

Aber das spielt doch nur eine Rolle, wenn er Code im OnChange des SpinEdits stehen hat.

[JadeFox]

Zitat von haentschman:

Zitat:

aber es funktioniert nicht

... ein wenig genauer bitte.

Zitat:

ich hab mal versucht im objektinspektor das value auf 1 zu setzten aber es setzt sich immer wieder auf 0 zurück, ist das normal?

- welche Werte haben MinValue und MaxValue ?

Nachtrag: ich kann jeden Wert in Value setzen.

welche Delphiversion benutzt du ?

er macht alles bis es zur schleife kommt, dann passiert nichts mehr, auch keine fehlermeldung mehr

minvalue hat den wert 1 und maxvalue hab ich nichts angegeben
ich benutze delphie 7

ich hab den Debugger drüberlaufen lassen
das spinedit7.value hat den wert : ([csInheritable], False, False, (0, 0))
sagt euch das was??

[Bbommel]

Zitat von JadeFox:

das spinedit7.value hat den wert : ([csInheritable], False, False, (0, 0))
sagt euch das was??

Ja, das sagt uns, dass du uns irgendwas anderes angibst, als das "Value" - oder das SpinEdit war in Delphi 7 noch völlig anders umgesetzt.

Zur Erklärung: "Value" ist eigentlich nur ein Integer, sonst nix. Du solltest uns hier als Wert also eigentlich nur eine Zahl angeben können und sonst nix. Hast du dich vielleicht verklickt/vertippt, als du den Wert rausgesucht hast?

Und noch eine Frage, die hier ja schon angesprochen wurde, aber auf die du nicht genau eingegangen bist: An welcher Stelle rufst du diese Funktion eigentlich genau auf?

Bis denn
Bommel