[vladimirem93]

нужно инвертировать порядок букв в слове, введенном в компонент Edit и вывести в компонент Memo!!!
Например: ввели "Улица" нужно вывести "Ацилу" именно так!
Зараннее СПАСИБО!!!

[m1sclick]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: string;
  i: integer;
begin
  str1:= Edit1.Text;
  for i:= Length(str1) downto 0 do str2:=str2 + str1[i];
  Edit2.Text:= str2;
end; 


[angvelem]

Упростим немного код:

Код:

function Reverse(St : String) : String; 
var
  I : Integer; 
begin
  Result := '';
  if St <> '' then 
  for I := Length(St) downto 1 do 
    Result := Result + St[i]; 
end;  

P.S. Конечно "вниз" до 1.

[chainik]

Надо быть полным бездельником чтобы не додуматься до этого...

Код:

function InvertStr(s:string):string;
var
i:integer;
begin
SetLength(Result,Length(s));
for i:=Length(s) downto 1 do
    Result[Length(s)-i+1]:=s[i];
end;

я имею в виду автора темы.....

[M.A.D.M.A.N.]

Не обратили внимание на регистр? "Ацилу" с большой буквы.

[chainik]

уж если на то пошло то

ацилУ

[vladimirem93]

Сообщение от m1sclick

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1, str2: string;
  i: integer;
begin
  str1:= Edit1.Text;
  for i:= Length(str1) downto 0 do str2:=str2 + str1[i];
  Edit2.Text:= str2;
end; 


Спасибо, вы помогли!