Überprüfen, ob Zahl in unregelmäßigen Bereichen

[oldmax]

Hi
Und auch, wenn mir wieder so ein superschlauer sagt, Strings sind "Strohdumm", langsam und uneffizient...
Wie wär es mit einem Array von Strings..
etwa so

Delphi-Quellcode:

Zahlengruppe[1] :=';1;2;3;';
Zahlengruppe[2] :=';4;5;6;';
Zahlengruppe[3] :=';77;106;122;';
Zahlengruppe[4] :=';10;20;30;';

etc.

Delphi-Quellcode:

gefunden:=False;
GuppenNr:=1;
While (GruppenNummer<=MaxNr) and not Gefunden do
begin
  if Pos(';'+IntToStr(ReferenzZahl)+';',Zahlengruppe[GruppenNr])>0 then Gefunden:=True
  else GruppenNr:=GruppenNr+1;
end;

Damit hast du den Vorteil, auch Zahlen in beliebiger Reihenfolge zu gruppieren. Wichtig ist halt, das du das Semikolon am Anfanf und auch am Schluß setzt, damit er mehrstellige Zahlen findet.
Ist doch gar nicht so schwer......
Ach ja, ich sollte noch ergänzen
if Gefunden then ergebnis:=Zahlengeruppe[GuppenNr] else Ergebnis:= 'nicht geführt';

Was immer du zurückbekommst ist erst einmal ein String, den du bei positiven Ergebnis ja Zerlegen kannst, oder einfach nur sagst, "Ok, war nix".
Gruß oldmax