Скачать: CL | DM;

Как посимвольно прочитать значения из 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]

Спасибо

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c