A_V
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
wakara
если записывать управляющие симиолы (с кодами < 32, пробела т.е) в визуальный контрол (memo), то потом будут проблемы при чтении. если так уж хочется работать с текстом прям из контрола, то нужно такие символы дополнительно сдвигать и потом восстанавливать:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var temp:string; i,j:integer;
c: byte;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo2.lines.Count-1 do
begin
for j:=1 to length(memo2.Lines[i])do
begin
c := ord(memo2.lines[i][j])-strtoint(edit1.Text);
if c < 32 then
c := c - 32;
temp:=temp+char(c );
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end;
procedure TForm1.Button1Click(Sender: TObject);
var temp:string; i,j:integer;
var c: byte;
begin
temp:=''; i:=0; j:=0;
for i:=0 to memo1.lines.Count-1 do
begin
for j:=1 to length(memo1.Lines[i]) do
begin
c := (ord(memo1.lines[i][j])+strtoint(edit1.Text));
if c < 32 then
c := c + 32;
temp:=temp+char(c);
end;
temp:=temp+#13+#10;
end;
memo2.text:=temp;
end;
|
|
Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 20:59 01-12-2013 | Исправлено: A_V, 21:03 01-12-2013 |
|
