Thema: Delphi Zählen mit dem Alphabet

Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#4

Re: Zählen mit dem Alphabet

  Alt 9. Feb 2006, 23:24
Hallo,

hier noch eine Lösung ohne Rekursion:
Delphi-Quellcode:
function ErhoeheBuchstabe(const Str: String): String;
var
  L, Index: Integer;
  C: Integer;
begin
  Result := UpperCase(Str);
  L := Length(Result);
  Index := L;

  while Index > 0 do
  begin
    if Result[Index] < 'Zthen
    begin
      Inc(Result[Index]);
      for C := Index + 1 to L do
        Result[C] := 'A';
      Exit;
    end else
      if Index = 1 then
      begin
        Result := DupeString('A', L + 1);
        Exit;
      end;
    Dec(Index);
  end;
  Result := 'A';
end;
Benötigt die Unit StrUtils.

Ist ca. 1/3 schneller, da nicht jedesmal zusätzliche Strings benötigt werden. Startet bei leerem String einfach mit A.

Gruß
xaromz
  Mit Zitat antworten Zitat