SpinEdit.Value manuell verändern

[approxinately007]

Hallo Leute,

folgendes Problem:

Ich benutze die Komponente SpinEdit um den Radius eines Kreises anzugeben.
Ich kann jetzt mit den Up- und Down-Tasten (die in der SpinEdit enthalten sind) den Wert um 1 vergrößern, bzw. verkleinern!

Wenn ich aber jetzt einen Wert manuel eingebe (d.h. den Wert mit der Maus markiere und eine neue Zahl eintippe), dann kommt folgende Fehlermeldung:

Benachrichtigung über Debugger-Exception
Im Projekt1.exe ist eine Exeption der Klasse EConvertError aufgetreten. Meldung: ''' ist kein gültiger Integerwert'.
Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
ok Hilfe



Hilfe hilft mir auch nicht wirklich weiter!
Ich verstehe eig. das Problem aber ich habe keine Lösung dafür...

Wäre nett wenn mir jemand helfen könnte...
mfg approxinately007

[s.h.a.r.k]

Du scheinst einen leeren String zuweisen zu wollen. Und dieser kann nicht in einen Integer umgewandelt werden, was ja klar ist.

Zeig mal deinen Code, bei dem dann die Fehlermeldung auftritt.

[approxinately007]

Delphi-Quellcode:

var
  Form1: TForm1;
  startX, startY, radius: Integer;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  startX := X;
  startY := Y;
  if ssLeft in Shift then
    PaintBox1.Canvas.Ellipse(startX-radius,startY+radius,startX+radius,startY-radius);
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  radius := SpinEdit2.Value;
end;

end.

hier bitte (is n bissl verkützt, aber ich denk des entscheidende is dabei)

Ich versteh auch nicht ganz, was n String ist?!? (bin noch Anfänger)
Also am coolsten wär, wenn jemand mir n Lösungsvorschlag machen würd!

mfg

[Klaus01]

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  try
    radius := SpinEdit2.Value;
  except
    radius := 0;
    ShowMessage('ungültiger Wert');
  end;
end;

Grüße
Klaus

[approxinately007]

Danke Klaus, aber die Meldung kommt trotzdem noch!
Ich habe exakt das geschrieben, was du geschrieben hast.

gr

[Uwe Raabe]

Zitat von approxinately007:

Danke Klaus, aber die Meldung kommt trotzdem noch!

Die Fehlermeldung kommt, weil die IDE den Fehler erkennt und anzeigt. Starte die Exe mal aus dem Explorer.

Du solltest auch mal genau beschreiben, was du in dem SpinEdit eingibst.

[approxinately007]

ah ja hasch recht! dann gehts!

ich mach mit der SpinEdit folgendes:

1. Ich markier mit der Maus die darinstehende Zahl
2. ich gebe eine Zahl mit der tastatur ein z.B. 50

aber s klappt jetz, wenn ich die exe vom explorer start!

danke...

[GHorn]

Du musst zuvor prüfen, ob der Wert nicht leer ist. Wenn du den markierst und etwas anderes eingibst, wird der Inhalt zunächst gelöscht, was bereits das OnChange-Ereignis auslöst.

So klappt's auch in der IDE / im Debugger:

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  if SpinEdit2.Text <> '' then
    begin
      try
        radius := SpinEdit2.Value;
      except
        radius := 0;
        ShowMessage('ungültiger Wert');
      end;
    end;
end;

Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

[Klaus01]

Zitat von GHorn:

...
Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

.. und was passiert dann, wenn jemand einen Buchstaben oder ein Sonderzeichen eingibt?

Grüße
Klaus

[Bummi]

Shit in Shit out...