как поменять местами данные в строке

[fize]

не пойму почему мои темы сносят. может называю не верно.
допустим есть данные вида 01234500. как их получить в таком виде 00452301
зараннее спасибо и надеюсь что эта тема доживет до истины

[Alar]

Логики замены не понял. для примера приведу код меняющий местами 2 символа.

x:=str[2];
str[2]:=str[3];
str[3]:=x;

[Пепел Феникса]

var c:char;
     s:string;
begin
 s:='0123456789';
 c:=s[1];
 s[1]:=s[5];
 s[5]:=c;
end;

меняет местами 5 и 1 символ.
а вообще не понятно по какому принципу менять вам их.

[fize]

может так понятнее будет-
имеем -
1A2B3C4D
надо -
4D3C2B1A

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     s,ns:string;
begin
 s:='1A2B3C4D';
 if Length(s) mod 2<>0 then exit;//если в строке нечетное кол-во символов то выход
 ns:='';
 for i:=Length(s)div 2 downto 1 do ns:=ns+Copy(s,i*2-1,2);
 Button1.Caption:=ns;
end;

ну типа такого чтото.

[Stilet]

...Интересно а зачем такие муки автору?

[fize]

Сообщение от Пепел Феникса

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     s,ns:string;
begin
 s:='1A2B3C4D';
 if Length(s) mod 2<>0 then exit;//если в строке нечетное кол-во символов то выход
 ns:='';
 for i:=Length(s)div 2 downto 1 do ns:=ns+Copy(s,i*2-1,2);
 Button1.Caption:=ns;
end;

ну типа такого чтото.

спасибо работает. теперь нужно что бы полученный код (4D3C2B1A) из hex переводился в dex. если использовать виндовс калькулятор то получим -
1295788826

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:='4D3C2B1A';
s:='$'+s;
i:=strtoint(s);
edit1.Text:=inttostr(i);
end;

если долго не извращаться, то так)

[fize]

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

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:='4D3C2B1A';
s:='$'+s;
i:=strtoint(s);
edit1.Text:=inttostr(i);
end;

если долго не извращаться, то так)

спасибо. вроде работает. только в едит выводит а надо в листбокс пишу так-
Listbox1.Items:=inttostr(i);
но ошибку выдает-
[Error] Unit1.pas(59): Incompatible types: 'TStrings' and 'String'
с этим потом разберусь. теперь нужно что бы полученное число (439041101) делилось на 60 два раза (получится 121955,86~) а результат выводился в едит1 и едит2 так-
edit1:121955 edit2:86

[MadReason]

для начала:

ListBox1.Items.Add(inttostr(i));

edit1:inttostr(число div 120)

edit2:inttostr(число mod 120)