Speziellen Wert in T(Float)SpinEditEx darstellen

[piula]

Hallo zusammen,

ich suche eine Möglichkeit, den Max- oder Min-Wert in einem TSpinEditEx oder TFloatSpinEditEx abweichend darzustellen.

Also z.B. für ein TSpinEdit mit dem Bereich 1–11 sollen die angezeigten Werte "1, 2, 3, 4, 5, 6, 7, 8, 9, 10, inf" lauten. D.h. der Wert soll zwar weiterhin 11 sein, aber als "inf" angezeigt werden.

Gibt es da eine einfache Möglichkeit, das umzusetzen oder muss ich eine abgeleitete Klasse erstellen?

Besten Dank

[Winni]

Gibt es da eine einfache Möglichkeit, das umzusetzen oder muss ich eine abgeleitete Klasse erstellen?

Besten Dank

Hi!

Da es infinity in Pascal nicht gibt, musst Du Dir wohl selbst etwas schnitzen.

Winni

[wp_xyz]

Also z.B. für ein TSpinEdit mit dem Bereich 1–11 sollen die angezeigten Werte "1, 2, 3, 4, 5, 6, 7, 8, 9, 10, inf" lauten. D.h. der Wert soll zwar weiterhin 11 sein, aber als "inf" angezeigt werden.

Gibt es da eine einfache Möglichkeit, das umzusetzen oder muss ich eine abgeleitete Klasse erstellen?

Nimm ein TEdit und ein TUpDown, kopple die beiden über die Associate-Eigenschaft des UpDown zusammen. TUpDown.Min=1 und TUpDown.Max=11 setzen. Und schließlich bekommt das TEdit den folgenden OnChange-Handler:

Code: Alles auswählen

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '11' then
    Edit1.Text := 'inf';
end;

[PascalDragon]

Da es infinity in Pascal nicht gibt, musst Du Dir wohl selbst etwas schnitzen.

Dann hast du wohl noch nie entsprechend mit Fließkommazahlen gearbeitet, da für diese sowohl +Inf als auch -Inf gültige Werte sind und auch entsprechend vom TFloatSpinEditEx akzeptiert werden.

Ändert allerdings nichts daran, dass plula da tatsächlich selbst tätig werden muss, wenn nur ein bestimmter Bereich abgedeckt werden soll.

[theo]

So geht erst mal:

Code: Alles auswählen

uses Math;
  FloatSpinEditEx1.Value:=Infinity;
  FloatSpinEditEx1.Value:=NegInfinity;

Zeigt "+Inf" an im FloatSpinEditEx.

Löst nat. das Problem des OP nicht direkt.

[piula]

Nimm ein TEdit und ein TUpDown, kopple die beiden über die Associate-Eigenschaft des UpDown zusammen. TUpDown.Min=1 und TUpDown.Max=11 setzen. Und schließlich bekommt das TEdit den folgenden OnChange-Handler:

Danke für den Tipp! Das funktioniert auch mit dem SpinEditEx, wenn man NullValue=12 und NullValueBehavior=nvbMaxValue setzt