Data commit

Task/Reverse-a-string/Delphi/reverse-a-string-1.delphi

@@ -0,0 +1,7 @@
+function ReverseString(const InString: string): string;
+var
+  i: integer;
+begin
+  for i := Length(InString) downto 1 do
+    Result := Result + InString[i];
+end;

Task/Reverse-a-string/Delphi/reverse-a-string-2.delphi

@@ -0,0 +1 @@
+StrUtils.ReverseString

Task/Reverse-a-string/Delphi/reverse-a-string-3.delphi

@@ -0,0 +1,16 @@
+function Reverse(const s: string): string;
+var
+  i, aLength, ahalfLength: Integer;
+  c: Char;
+begin
+  Result := s;
+  aLength := Length(s);
+  ahalfLength := aLength div 2;
+  if aLength > 1 then
+    for i := 1 to ahalfLength do
+    begin
+      c := result[i];
+      result[i] := result[aLength - i + 1];
+      result[aLength - i + 1] := c;
+    end;
+end;