[гаухар]

пажалуиста решите мне задачу.
"Поменять порядок цифр числа на обратный. Например, было 12345, стало 54321."

[NIch]

Как то так...

Код:

1 2 3 4 5 6 7 8 9 10

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;

[ChinYan]

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

Как то так...

Код:

А не проще так:

Код:

1 2 3 4 5 6 7 8 9

var chislo:integer; str:string; begin str:=IntToStr(chislo); str:=ReverseString(str); //разворот строки chislo:=StrToInt(str);   end;

P.S. Если вдруг будет ругатся на ReverseString, то она объявлена в StrUtils

[NIch]

ну у тебя 8 строк, у меня 10...разницы никакой...
посмотри как эта функция работает в модуле StrUtils

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function ReverseString(const AText: string): string; var   I: Integer;   P: PChar; begin   SetLength(Result, Length(AText));   P := PChar(Result);   for I := Length(AText) downto 1 do   begin     P^ := AText[i];     Inc(P);   end; end;

Подавляющее большинство функций делфи построены на операторах ObjectPascal...просто где то дополнены WinAPI...и совсем редко ассембрерными вставками...