SpinEdit Fehler: Kein gültiger Integewert

[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

[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 ^^