Hallo alle zusammen

bekomme es einfach nicht hin


input 78563412
bekomme es nur so hin
output 21436587


brauche aber
input 78563412
output 12345678

jemand ne idee !!

Hallo,

da ein String im Prinzip ähnlich einem Zeichen-Array ist lassen sich wunderbar Sortier-Algorithmen darauf anwenden.

Sieh mal hier nach:
http://www.delphipraxis.net/281-tuto...hmen-i-ii.html
http://www.delphipraxis.net/5603-3-v...verfahren.html

Habe folgende Funktion mal irgendwo gefunden und in meine Bib mit aufgenommen. Ist recht simple aber effektiv...Aaaaber es gibt noch eine schönere Variante die hab ich jedoch vergessen...wird aber irgendwo im Forum besprochen.

markieren

Delphi-Quellcode:

Function String_Reverse(S : String): String;
Var
   i : Integer;
Begin
   Result := '';
   For i := Length(S) DownTo 1 Do
   Begin
     Result := Result + Copy(S,i,1) ;
   End;
End;

zusammenfalten · markieren

Delphi-Quellcode:

function ReverseString2(S: String): String;
var
  i, i2: Integer;
begin
  Result := S;
  i2 := Length(S) div 2;
  for i := 1 to i2 do begin
    Result[i * 2 - 1] := S[(i2 - i + 1) * 2 - 1];
    Result[i * 2] := S[(i2 - i + 1) * 2];
  end;
end;
// oder
begin
  Result := S;
  i2 := Length(S) div 2;
  for i := 0 to i2 - 1 do begin
    Result[i * 2 + 1] := S[(i2 - i) * 2 - 1];
    Result[i * 2 + 2] := S[(i2 - i) * 2];
  end;
end;

Einfach ein bissl Mathematik und die passenden Zeichenoperationen.

Hallo,

war die Frage nicht genau die, dass er das verhalten von ReverseString eben nicht will, sondern eigentlich den String Sortiert haben will?

Zitat von Landogar-Garuno:

input 78563412
bekomme es nur so hin
output 21436587

brauche aber
input 78563412
output 12345678

Gruß, Chris

Das ist hier die Frage ... Möchte er eine Sortierung oder sind die Zahlen nur als wertunabhängiges Beispiel zu sehn?

> sortieren
> ReversteString + sowas wie LittleEndian/BigEndian

zusammenfalten · markieren

Delphi-Quellcode:

  procedure QSortStr(var AStr: string);
  var
    tmp: Char;

    procedure QSortAll(const LoIndex, HiIndex: Integer);
    var
      Lo, Hi: Integer;
      Pivot: Integer;
    begin
      Lo := LoIndex;
      Hi := HiIndex;
      Pivot := StrToInt(AStr[(Lo + Hi) div 2]);

      repeat
        while StrToInt(AStr[Lo]) < Pivot do
          Inc(Lo);
        while StrToInt(AStr[Hi]) > Pivot do
          Dec(Hi);
        if Lo <= Hi then
        begin
          if Lo < Hi then
            if AStr[Lo] <> AStr[Hi] then
            begin
              tmp := AStr[Lo];
              AStr[Lo] := AStr[Hi];
              AStr[Hi] := tmp;
            end;
          Inc(Lo);
          Dec(Hi);
        end;
      until Lo > Hi;

      if LoIndex < Hi then
        QSortAll(LoIndex, Hi);
      if Lo < HiIndex then
        QSortAll(Lo, HiIndex);
    end;

  begin
    if Length(AStr) > 0 then
      QSortAll(1, Length(AStr));
  end;

  function getQSortedStr(const AStr: string): string;
  begin
    Result := AStr;
    QSortStr(Result);
  end;

Zitat von Landogar-Garuno:

brauche aber
input 78563412
output 12345678

Leider ist hier noch keine Regel erkennbar. Zum Einen kann es sein, daß du die einzelnen Ziffern sortiert haben willst, zum Anderen kann es aber auch sein, daß du die Reihenfolge umdrehen willst, dabei aber immer Gruppen von zwei Ziffern bildest, die so bleiben sollen:

78 56 34 12
12 34 56 78

Also, was soll es tun?