[Sharky]

Привет. Моя функция , правильно или она написана?

Код:

Function ma (s: string): string;
var
 str: string;
 i: integer;
begin
 str:='';
 i:=legth(s);
 for 1 downto i do
  str:=str +  s[i];
 result:=str;
end;

Admin: Учимся правильно оформлять код!

ф-ция для переворота строки задом на перед .

[Winny]

http://delphisources.ru/pages/faq/fa...tring.php.html