![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как посимвольно прочитать значения из Edit? [D2, D3, D4, D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
vitall © (2002-06-10 13:38:00)subj
Читаются символы из одного Edit, заменяются на другие символы и записываются в другой Edit.
как это делать используя файлы - знаю, а как поступить в этой ситуации.
Заранее спасибо
Vitall (2002-06-10 14:33:00) [1]Спасибо
Kaban (2002-06-10 14:28:00) [2]Case Edit1.Text[i] of
Vitall (2002-06-10 14:27:00) [3]To Producer
Я понимаю, что это все выглядит очень глупо, но подсказать знающему человеку не составит труда.
Producer (2002-06-10 14:21:00) [4]Господи, да что же это такое?
Vitall (2002-06-10 14:17:00) [5]Подскажите, пожалуйста, где я напортачил.
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:="
vitall (2002-06-10 13:55:00) [6]Спасибо
MBo (2002-06-10 13:41:00) [7]for i:=1 to length(edit1.text) do
edit2.text:=edit2.text+ФункцияЗамены(edit1.text[i]);