Hm ?
Meinst du vielleicht, dass es bei 1b nicht klappen würde ?
Wenn...
...
ja:
Da darf ich ja mal wieder Pos&Copy erklären
:
Mach es so, falls du außer a noch etwas anderes einbauen möchtes (z.B. b):
Delphi-Quellcode:
var i : Integer;
s : String;
begin
s := cb.Items[cb.ItemIndex]; // der ausgwählte Eintrag von der ComboBox (cb)
for i := 1 to Length(s) do // Strings beginnen bei 1; hier wird der gesamte String Zeichen für Zeichen durchgegangen und...
if not (s[i] in [0..9]) then // ...geschaut, ob außer 0..9 noch etwas anders enthalten ist
LabelBla.Caption := Copy(s, 0, i); // Copy kopiert in dem Fall im String s von 0 bis zur Stelle, an der etwas anderes außer 0-9 gefunden wurde
...
nein:
Lies dir
ja trotzdem durch und probier es einfach nur zur Übung aus
und erklär nochmal genau dein Problem.