String Umdrehen

[JWeis]

hi ich hätte mal wieder ne frage:

Wie kann ich einen string umdrehen?

also es steht "Hallo"
aber ich will "ollaH"

wie kann ich das einfach realisieren ??

vielen Dank im Vorraus

ps ich hab schon gesucht aber leider noch kein richtes Ergebnis gefunden

[TheAn00bis]

Vielleicht so:

Delphi-Quellcode:

function StringDrehen(pString: String): String;
var i:integer;
begin
   for i:=length(pString) downto 0 do
      result:=result+pString[i]
end;

[WIN-MANww]

Hi, jo die Funktion von TheAnoobis ist eigenltich gut, nur sollte man da statt downto 0 downto 1 schreiben, weil der Index bei Strings mit 1 statt 0 anfängt.

[TheAn00bis]

Zitat:

Zitat von WIN-MANww

Hi, jo die Funktion von TheAnoobis ist eigenltich gut, nur sollte man da statt downto 0 downto 1 schreiben, weil der Index bei Strings mit 1 statt 0 anfängt.

"Downto 0" wirft aber komischer Weise auch keine Exception.

[Hawkeye219]

Hallo,

hier noch eine Variante:

Delphi-Quellcode:

// uses StrUtils
s := ReverseString('Delphi enthält mehr, als man denkt!');

Gruß Hawkeye

[WIN-MANww]

@TheAn00bis
Genau, find ich eigentlich auch komisch, wenn man auf das Item 0 zugreifen will gehts nicht, aber die Schleife läuft sauber.. hmm..

[Hawkeye219]

Delphi-Quellcode:

var idx : Integer;
    ch : Char;
    s : string;
begin
  s := 'Test';

  // Das wird vom _Compiler_ zurückgewiesen, weil er den Zugriff über Index 0 erkennt
  ch := s[0];

  // Das kann der Compiler nicht erkennen, das Ergebnis ist unbrauchbar
  {$R-}
  idx := 0;
  ch := s[idx];

  // Das kann der Compiler nicht erkennen, zur Laufzeit wird eine Exception geworfen
  {$R+}
  idx := 0;
  ch := s[idx];
end;

Gruß Hawkeye

[TheAn00bis]

Danke für die Aufklärung, Hawkeye219.

Leute wie mich lässt der Compiler dumm sterben. :D

[JWeis]

danke Hawkeye219
ich wusste nicht das delphi so ne funktion hat

sie funktioniert perfert :thumb:
dnke auch an alle anderen