заменить memo на edit

[Nor61k]

данная программа считывает с мемо1 текст,считает строки и шифрует.а мне надо сделать так чтобы считывал с едит1.текст так как у меня строка всего одна)а когда меняю мем на едит1 то он ругается так как в едит нету lines(можно как нибудь заменить?

begin
mem:=form1.memo2;
form1.Memo1.Clear
end;

n:=Mem.Lines.Count;

for i:=0 to n-1 do
begin
sin:= mem.Lines.Strings[i];
k:=length(sin);
sout:='';

for j:=1 to k do
sout:=sout+chr(255-ord(sin[j])+32);

if mem=form1.Memo1 then
form1.Memo2.Lines.Add(sout)
else form1.Memo1.Lines.Add(sout);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

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

.. а мне надо сделать так чтобы считывал с едит1.текст так как у меня строка всего одна)

Ну так эту строку зовут Edit1.Text
Делайте с ней, что хотите.
Посмотрите в справке Delphi - TMemo, TEdit

[Serge_Bliznykov]

for i:=0 to n-1 do
begin
sin:= mem.Lines.Strings[i];
k:=length(sin);
sout:='';

for j:=1 to k do
sout:=sout+chr(255-ord(sin[j])+32);

  sin:= Edit1.Text;
  k:=length(sin);
  sout:='';

  for j:=1 to k do
     sout:=sout+chr(255-ord(sin[j])+32);