Быстрее, еще быстрее

Автор: Еремеев Алексей

function TranslateString(Source: string): string;
var
  i: integer;
begin
  Result := '';
  for i := 1 to Length(Source) do
    Result := Result + TranslateChar(Source[i]);
end;

procedure TranslateString(var Source: string);
var
  i: integer;
begin
  for i := 1 to Length(Source) do
    Source[i] := TranslateChar(Source[i]);
end;

Или, если очень нужна функция, то так:

function TranslateString(const Source: string): string;
var
  i: integer;
begin
  SetLength(Result, Length(Source));
  for i := 1 to Length(Source) do
    Result[i] := TranslateChar(Source[i]);
end;

if A > B then
  C := A
else
  C := B;
и
C := A;
if A < B then
  C := B;

>> А конструкции if then else if then .... И сase of

>> A for i:=0 to 10 do И i:=0; while I<=10 do i:=i+1;

1. когда шаг цикла может меняться внутри цикла
2. когда кол-во итераций может менятся внутри цикла
3. когда используется значение переменной цикла после выхода из цикла

>> И классический пример рекурсии

function Factorial(N: Longword): Longword;
begin
  Result := 1;
  if N < 1 then
    exit;
  Result := N * Fuctorial(N - 1);
end;
И

function Factorial(N: Longword): Longword;
var
  I: Longword;
begin
  Result := 1;
  for I := 1 to N do
    Result := Result * I;
end;