Как посимвольно прочитать значения из Edit?

← →
vitall (2002-06-10 13:38) [0]

subj
Читаются символы из одного Edit, заменяются на другие символы и записываются в другой Edit.
как это делать используя файлы - знаю, а как поступить в этой ситуации.
Заранее спасибо

← →
MBo (2002-06-10 13:41) [1]

for i:=1 to length(edit1.text) do
edit2.text:=edit2.text+ФункцияЗамены(edit1.text[i]);

← →
vitall (2002-06-10 13:55) [2]

Спасибо

← →
Vitall (2002-06-10 14:17) [3]

Подскажите, пожалуйста, где я напортачил.

procedure TForm1.Button1Click(Sender: TObject);
var
f2:string;
i:integer;
begin

for i:=1 to Length(Edit1.Text) do
Case Edit1.Text of
"q","Q" : f2:="

← →
Producer (2002-06-10 14:21) [4]

Господи, да что же это такое?

← →
Vitall (2002-06-10 14:27) [5]

To Producer

Я понимаю, что это все выглядит очень глупо, но подсказать знающему человеку не составит труда.

← →
Kaban (2002-06-10 14:28) [6]

Case Edit1.Text[i] of

← →
Vitall (2002-06-10 14:33) [7]

Спасибо

Как посимвольно прочитать значения из Edit? Найти похожие ветки