Посимвольный ввод в Edit

← →
Пасечник (2002-09-28 22:57) [0]

Каким образом можно организовать посимвольный,последовательный ввод в Edit, подразумевается использование его как визуального буфера.

← →
Itap (2002-09-28 23:05) [1]

>Пасечник
Что означает "посимвольный,последовательный ввод"?
Если ты имеешь ввиду чтобы происходило что-то после ввода в Edit каждого символа, то напиши то что ты хочешь в событии OnChange.

← →
Пасечник (2002-09-28 23:11) [2]

нет, требуется нечто вроде:
1
13
135
1359
и.т.д
то бишь небольшой сдвиговый визуальный буферок

← →
Пасечник (2002-09-28 23:14) [3]

я имею ввиду ввод символов из самой программы, а не вручную

← →
Itap (2002-09-28 23:20) [4]

Записываешь переменной типа string текущий текст в Edit1 а потом пишешь что edit1.Text:= (<твоя переменная>+то что ты хочешь добавить).

← →
alena.svt (2002-09-28 23:21) [5]

procedure TForm1.Edit1Change(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.text)// Пусть ListBox1 и будет буферком или TStringList
end;

← →
Юрий Зотов (2002-09-28 23:25) [6]

Edit1.Text := Edit1.Text + следующий_символ

← →
Itap (2002-09-28 23:28) [7]

Как Ю.Зотов сказал даже легче и переменная не нужна будет.

← →
alena.svt (2002-09-28 23:39) [8]

← →
Пасечник (2002-09-29 00:26) [9]

>Edit1.Text := Edit1.Text + следующий_символ
как говориться ответ лежал на поверхности...
спасибо.

← →
777 (2002-09-29 00:40) [10]

финиш...

← →
Юрий Зотов (2002-09-29 01:17) [11]

Эт-точно.
Как говорил тов. Сухов.

Посимвольный ввод в Edit Найти похожие ветки