was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

44 Visitors Online


 
...einen String umkehren?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Tip ausdrucken ]  

Tip Bewertung (9):  
     


function ReverseString1(const s: string): string;
var
  
i, len: Integer;
begin
  
len := Length(s);
  SetLength(Result, len);
  for i := len downto do
  begin
    
Result[len - i + 1] := s[i];
  end;
end;

function ReverseString2(const Str: string): string;
// by Ido Kanner
var
  
ch: Char;
  i, Size: Integer;
begin
  
Result := Str;
  Size   := Length(Result);
  if (Size >= 2) then
  
// 2 or more chars
  
begin
    
// For 1 to middle of the string
    
for i := 1 to (Size div 2) do
    begin
      
// Lets get the charecter of the current place in the string
      
ch := Result[i];
      // Place the Current pos of the char
      // with the char of it's mirror place...
      
Result[i] := Result[Size - (i - 1)];
      // In the mirror place we will put char of the
      // Original place... And we switched places !!!
      
Result[Size - (i - 1)] := ch;
    end
  end
;
end;


function ReverseString3(S: string): string;
// by Rudy Velthuis
var
  
P, Q: PChar;
  C: Char;
begin
  
Result := S;
  if Length(Result) = 0 then Exit;
  P := PChar(Result);
  Q := P + Length(Result) - 1;
  while P < Q do
  begin
    
C := P^;
    P^ := Q^;
    Q^ := C;
    Inc(P);
    Dec(Q);
  end;
end;

procedure ReverseString4(var S: string);
// by Rudy Velthuis
var
  
P, Q: PChar;
  C: Char;
begin
  if 
Length(S) = 0 then Exit;
  P := PChar(S);
  Q := P + Length(S) - 1;
  while P < Q do
  begin
    
C := P^;
    P^ := Q^;
    Q^ := C;
    Inc(P);
    Dec(Q);
  end;
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners