Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
ВнизКак посимвольно прочитать значения из 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c