1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function ReverseString (InString: string): string;

var
  i,j   : integer;
  cc    : char;

begin
result := InString;
i := 1;
j := length(InString);
while (i < j) do
  begin
  cc := result[i];
  result[i] := result[j];
  result[j] := cc;
  inc (i);
  dec (j);
  end;
end;					

1:

<span class="inlineSyntax"><span class="codecomment">{PROTECTTAG20953dc49f34be5731b5a71e40545a94}</span></span>					

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

function ReverseString (const S: String): String;  //const verhindert, dass der String extra kopiert werden muss und spart damit Zeit
var
  i, Laenge : integer;
begin
  Laenge := Length(S);  //Länge des Eingangsstrings abspeichern
  result := Copy(S, 1, Laenge);  //String kopieren(dient hier eigentlich nur zum Setzen der Länge des Rückgabestrings)
  i := 1;  //i für Schleifendurchlauf initialisieren
  while i < Laenge do begin  //String durchgehen, bis Laufvariable das Ende des Strings erreicht hat
    result[i] := S[Laenge + 1 - i];  //und das Ende an den Anfang kopieren
    Inc(i);  //Laufvariable um eins erhöhen
  end;
end;					

1:

function ReverseString (const S: String): String;  //const verhindert, dass der String extra kopiert werden muss und spart damit Zeit					

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

function ReverseString (const S: String): String;  //const verhindert, dass der String extra kopiert werden muss und spart damit Zeit
var
  i, Laenge : integer;
begin
  Laenge := Length(S);  //Länge des Eingangsstrings abspeichern
  result := Copy(S, 1, Laenge);  //String kopieren(dient hier eigentlich nur zum Setzen der Länge des Rückgabestrings)
  i := 1;  //i für Schleifendurchlauf initialisieren
  while i < Laenge do begin  //String durchgehen, bis Laufvariable das Ende des Strings erreicht hat
    result[i] := S[Laenge + 1 - i];  //und das Ende an den Anfang kopieren
    Inc(i);  //Laufvariable um eins erhöhen
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

for i := LowBound to HighBound  //das hier

i := LowBound;  //ist identisch
while i <= HighBound do begin
  DoSomething;
  Inc(i);
end;					

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

function ReverseString (const S: String): String;  //const verhindert, dass der String extra kopiert werden muss und spart damit Zeit
var
  i, Laenge : integer;
begin
  Laenge := Length(S);  //Länge des Eingangsstrings abspeichern
  SetLength(result, Laenge);
  i := 1;  //i für Schleifendurchlauf initialisieren
  while i <= Laenge do begin  //String durchgehen, bis Laufvariable das Ende des Strings erreicht hat
    result[i] := S[Laenge + 1 - i];  //und das Ende an den Anfang kopieren
    Inc(i);  //Laufvariable um eins erhöhen
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function ReverseString (const S: String): String;  //const verhindert, dass der String extra kopiert werden muss und spart damit Zeit
var
  i, Laenge : integer;
begin
  Laenge := Length(S);  //Länge des Eingangsstrings abspeichern
  SetLength(result, Laenge);
  for i := 1 to Laenge do  //String durchgehen, bis Laufvariable das Ende des Strings erreicht hat
    result[i] := S[Laenge + 1 - i];  //und das Ende an den Anfang kopieren
end;