SpinEdit Fehler: Kein gültiger Integewert

[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

[JadeFox]

hab grad nochmal nachgeguckt, nein ich hab mich nciht verklickt

ich rufe sie ganz am ende meines prpgramms auf.

[stahli]

Wenn Du nur eine (Formular-)Unit hast, dann poste sie hier mal.
Ansonsten häng das Projekt mal als Zip an...

[JadeFox]

aufgepasst da sind noch einige fehler drin ^^

[stahli]

Ohne mich tiefgreifend damit beschäftigt zu haben ist mir erst einmal aufgefallen, dass Du in der Funktion Neu Result nicht setzt.
Das Programm bleibt daher dort hängen.

So etwas kannst Du finden, indem Du einen Breakpoint setzt und das Programm schrittweise debugst.
Außerdem würde ich auf eine "ordentliche" (also übersichtliche) Formatierung achten (Einrückungen von begin-end-Blöcken usw.).
Man unterschätzt das gern, aber das hilft ungemein bei der Fehlersuche.

Dann brauchst Du auch nicht auf if Ausdruck = True then ... prüfen.
If Ausdruck then oder if not Ausdruck then ist viel besser zu lesen.


Schau mal, ob Dir das schon hilft und dann kannst Du ja wieder fragen...

[Luckie]

Also bei mir stürzt die IDE (D2006) ab, wenn ich einen Breakpoint setze.