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

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

Пара простых вопросов... [D7, XP]

Страницы:   < 1 2 >

Max.66RUS ©   (2006-10-27 20:53:00) 

1) Как можно сделать такую опцию, чтобы в Edit1.Text с клавиатуры вводились только цифры, а попытка ввода других символов игнорировалась.

2) Подскажите процедуру сохранения содержимого Edit1.Text в текстовый файл по нажатию на копку, с возможностью выбрать нужный каталог и ввести нужное имя файла.

Заранее спасибо.

---

Джо   (2006-10-27 21:20:00) [21]

1)
procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9']) then
   Key := #0
end;
Не спасет от вставки из буфера обмена.

2)
На форму положи компонент TSaveDialog со вкладки Dialogs.
procedure TMainForm.Button1Click(Sender: TObject);
var
 F: TextFile;
begin
 if SaveDialog1.Execute then
 begin
   AssignFile (F,SaveDialog1.FileName);
   Rewrite (F);
   try
     WriteLn (F,Edit1.Text)
   finally
     CloseFile (F);
   end;
 end;
end;


---

Ketmar   (2006-10-27 21:14:00) [22]

оффтоп: тебя спасает только правильный выбор конференции... %-)

---

Страницы:   < 1 2 >

Наверх