8 lines
161 B
Text
8 lines
161 B
Text
|
function ReverseString(const InString: string): string;
|
||
|
|
var
|
||
|
|
i: integer;
|
||
|
|
begin
|
||
|
|
for i := Length(InString) downto 1 do
|
||
|
|
Result := Result + InString[i];
|
||
|
|
end;
|