Moin,
folgende Funktion:

zusammenfalten · markieren

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

Hallo Chris,

du willst doch nicht wirklich die Schleife verlassen, wenn das aktuelle Zeichen eine 0..9 ist, oder ?

Propiers mal mit:

markieren

Delphi-Quellcode:

 if Not (aTmp[i] in ['0'..'9']) then
      Break;

Außerdem sollte die Schleife nicht bis 0, sondern nur bis 1 laufen.

Hm... danke, dass wird es wohl sein, aber ich habe gerade auf die schnelle (ich habe min. 1 Std. mal drangessessen ) hingeschrieben:

markieren

Delphi-Quellcode:

function TMainFrm.getID: integer;
var
  aTmp: string;
begin
  aTmp := getcurSyn.Name;
  Result := StrToInt( copy(aTmp, Pos('g', aTmp) + 1, length(aTmp) - Pos('g', aTmp) ) );
end;

Chris

Zitat:

markieren

Code:

i := (length(aTmp) + 1) - i;

Hier wirft der Compiler doch eine Warnung wegen 'i' aus. Diese solltest du unbedingt beachten wegen der Code-Optimierung. Innerhalb der Schleife ist 'i' genau definiert, aber außerhalb eben nicht.