Moin,
folgende Funktion:
Delphi-Quellcode:
function TMainFrm.getID: integer;
var
aTmp: string;
i: integer;
begin
aTmp := getcurSyn.Name;
for i:= length(aTmp) downto 0 do begin
if (aTmp[i] in ['0'..'9']) then
Break;
end;
i := (length(aTmp) + 1) - i;
Result := StrToInt(copy(aTmp, length(aTmp), i));
end;
Ich weiß, ihr werdet gleich drauf losbrüllen, dass das falsch ist. Tja, und genau das will ich auch hören.
Problem: ich bekomme immer nur die letzte Zahl, auch wenn die ID mehrstellig ist.
Im Klartext: der Komponentenname setzt sich zusammen aus seInsertingXX. Das XX steht für eine ID, die ein einfacher Integer ist und bis zum Ende rattert. Nun, was will meine Funktion bezwecken? Ganz einfach: ich will diese ID. Nun frage ich euch: WAT SOLL ICH DA MACHEN? Wie gesagt: bekomme immer nur die letzte der mehreren Xen.
Naja, mir ist gerade eine Idee gekommen, aber jetzt seid ihr dran...
Chris