Delphi-Quellcode:
if Edit1.Text <> '' then Rot.Position := StrtoInt(RotWert.Text);
// oder auch:
if not (Edit1.Text = '') then Rot.Position := StrtoInt(RotWert.Text);
// kommt auf's selbe raus, ist aber vernachlässigbar langsamer (würde nie einer merken)
Aber dann bist du noch nicht vor Nicht-Zahlen-Strings geschützt. Aber evtl. findest du das ja selber raus - die Suche dürfte da mannigfaltig Ergebnisse spucken
(Tipp: TryStrToInt bzw. Val, oder man kann auch prüfen, ob jedes einzelne Zeichen im String eine Ziffer ist (Edit1.Text[n] in [ord(0)..ord(9)] -- in etwa)
\\edit: Die not-Variante
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel