строки

[Limon34]

Помогите решить задачу или хотябы подскажите где можно найти подробный материал,а то уже обыскался везде...

Задача:

Вводятся 2 строки. Перевернуть обе строки, склеить и вывести.

Зарание спасибо!

[_SERGEYX_]

function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := '';
  if Trim(s) <> '' then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;

ShowMessage(ReverseString(edit1.tex t) + ReverseString(edit2.text));

[Limon34]

даже не думал,что кто-то так быстро откликнится.Спасибо Вам.

[Limon34]

function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := '';
  if Trim(s) <> '' then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;

помогите этот код в delphi перевести,а то нечего не получается...

[BOBAH13]

Что значит перевести в дельфи ? И что не получается ? Походу опять, в очередной раз, прийдется вызывать духов :D
p.s. не вижу смысла в этой строке

 if Trim(s) <> '' then

[VladimirVB]

uses
StrUtils;

ShowMessage(ReverseString(s1) + ReverseString(s2));