Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо