дается строка Edit1(произвольная) Вывести в поле Edit2 строку наоборот

[RocKy]

Программисты помогите пожалуйстО! ! Нужно: Написать программу: дается строка Edit1(произвольная) Вывести в поле Edit2 строку наоборот!!! Например: ASDFG-GFDSA!!! Ребят если можно срочно!

[RocKy]

И ребят может у кого есть готовая программа Каркулятора в Delphi!!!Сложение умножение деление вычитание чисел!!! И сложение строк

[Jeni]

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

дается строка Edit1(произвольная) Вывести в поле Edit2 строку наоборот

Вот, на скорую руку

var
  I, L: Integer;
  S1, S2: string;
begin
  S1 := Edit1.Text;
  L := Length(S1);

  S2 := '';
  for I := 1 to L do
    S2 := S2 + S1[L - I + 1];

  Edit2.Text := S2;

[RocKy]

Что то не прёт прога! Нужно чтобы слово в Edit1 забивал а в Edit2 оно задом наперёд было написано при нажатии кнопки!

[RocKy]

В Edit1 вводиш слово нажимаешь кнопку и в Edit2 высвечивается наоборот) Вот так ребят нужно!

[Баламут]

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

[Jeni]

Именно так приведенный код и делает. То, что было написано, нужно вставить в обработчик кнопки. Во всяком случае, у меня всё работает - в Edit1 ввожу 123456789, а Edit2 (после нажатия кнопки) получаю 987654321.

[RocKy]

Всё вроде работает ребят тока вот когда кнопку жмёшь надпись Edit2 остаётся и рядом появляется результат.

[Баламут]

Твоя первая программа?

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
Edit2.Text := '';
for i := Length(Edit1.Text) downto 1 do
Edit2.Text := Edit2.Text + Edit1.Text[i];
end;

[RocKy]

ДА первая! )) Спасибо большое! А вот насчёт калькулятора ??