|
Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
AW: String spiegeln
1. Mai 2011, 15:37
Delphi-Quellcode:
function ReverseString(const InString: AnsiString): AnsiString;
var
i: Integer;
begin
SetLength(Result, Length(InString));
for i := Length(InString) downto 1 do
begin
Result[i] := InString[Length(InString) + 1 - i];
end;
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
|