Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

никто не делал лабу   Найти похожие ветки 

← →
wicked   (2002-02-08 12:11) [8]

2 Nest ©
странно.... у меня работает....
procedure TForm1.Button1Click(Sender: TObject);
var s, d: string;
i, n: integer;
begin
s := edit1.Text;
d := "";
n := length(s);
for i := 1 to n do
d := d + chr(ord(s[i]) + 1);
Edit2.Text := d;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s, d: string;
i, n: integer;
begin
s := edit2.Text;
d := "";
n := length(s);
for i := 1 to n do
d := d + chr(ord(s[i]) - 1);
Edit1.Text := d;
end;


---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c