Цитата:
|
Сообщение от NIch
Как то так...
Код:
var
Str, Str1: string;
i: word;
begin
Str := Edit1.Text;//К примеру слово берется из Edit1
Str1 := '';
for i := Length(Str)-1 down to 0 do
Str1 := Str1 + Str[i];
Edit2.Text := Str1;
end; |
А не проще так:
Код:
var
chislo:integer;
str:string;
begin
str:=IntToStr(chislo);
str:=ReverseString(str); //разворот строки
chislo:=StrToInt(str);
end;
P.S. Если вдруг будет ругатся на ReverseString, то она объявлена в StrUtils