Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: string inkrementieren

    Delphi
    by shmia, 3. Jun 2011
  Gibt es eigentlich eine Steigerung zu "ultimativer" ? :hi:
  function FastCharPos(const S: AnsiString; const C: AnsiChar): Integer;
  begin
  for Result := 1 to Length(S) do
  if S = C then
  Exit;
  Result := 0;
  end;
  
  function IncSingleDigit(var c:AnsiChar; n : Integer; const d:string):Integer;
• Forum: Object-Pascal / Delphi-Language

  AW: string inkrementieren

    Delphi
    by shmia, 3. Jun 2011
  Nun ja, man kann's ja mal so machen:
  (die Performance bei hohen Werten von n ist natürlich nicht so berauschend)function IncrementWithMask2(const Number, Mask:string, n: Integer):string;
  begin
  Result := Number;
  while n > 0 do
  begin
  Result := IncrementWithMask(Result, mask);
  Dec(n);
  end;
  end;
• Forum: Object-Pascal / Delphi-Language

  AW: string inkrementieren

    Delphi
    by shmia, 1. Jun 2011
  Hier kommt die ultimative Funktion um einen String zu inkrementieren.
  Dabei wird nicht auf Integer umgewandelt, sondern es wird alles nur durch reine Stringverarbeitung erledigt.
  Das hat folgende Vorteile:
  * kein Integer Überlauf möglich
  * über eine Maske kann genau gesteuert werden, welche Positionen erhöht werden dürfen
  ...