Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - String umkehren

Hybrid - Mo 15.12.03 22:36
Titel: String umkehren

Ist jetzt warscheinlich ne blöde Frage, aber wie kann man den Inhalt eines Strings umdrehen?
z.B.:
Der String a hat den Wert abcd und soll dann den Wert dcba haben.

Anonymous - Mo 15.12.03 22:40

So gehts:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function umkehren(s: string): string;
var
 a,b: pchar;
begin
 a := pchar(s);
 setlength(result, length(s));
 b := pchar(result)+length(result)-1;
 while a^ <> #0 do
 begin
  b^ := a^;
  dec(b);
  inc(a);
 end;
end;

Hybrid - Mo 15.12.03 23:00

Danke! Klappt perfekt.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!