|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
создание пустого txt файла при добавлении новой строки в ComboBox
Доброй ночи, тем кто еще не спит ! Возник такой вопрос: есть ComboBox (на каждую запись есть файл с таким-же именем), например выбираем лапти и открывается файл лапти. Вопрос в следующем, добавляем новую запись в ComboBox, например туфли,как сделать что-бы при этом создавался пустой файл типа туфли.txt ?
|
#2
|
||||
|
||||
Обрабатывай событие OnChange, в нём проверяй, если такого файла нет - создать.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
Проверку на наличие файла я делаю, только не получается создать новый файл. Может неправильно пишу функцию для создания файла? Подскажите как правильно плс
Код:
procedure TForm1.Button1Click(Sender: TObject); var F:TfileStream; begin ComboBox1.Items.Add(Edit1.Text); if not FileExists(Edit1.Text+'.txt') then showmessage('Нет файла с таким названием! Создаем!!!!') F:=TFileStream.Create(Edit1.Text+'.txt',fmCreate); else showmessage('Файл с названием существует!') end; Последний раз редактировалось Admin, 03.08.2011 в 10:36. |
#4
|
||||
|
||||
Может так лучше будет?
Код:
procedure TForm1.Button1Click(Sender: TObject); var F : TfileStream; begin ComboBox1.Items.Add(Edit1.Text); if not FileExists(Edit1.Text + '.txt') then begin ShowMessage('Нет файла с таким названием! Создаем!!!!'); F := TFileStream.Create(Edit1.Text + '.txt',fmCreate); end else ShowMessage('Файл с названием существует!') end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 03.08.2011 в 04:05. |
#5
|
|||
|
|||
Может, только ругается на
F:= TFileStream.Create(Edit1.Text+'.txt',fmCreate); пишет: [Error] Unit1.pas(47): Missing operator or semicolon [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' |
#6
|
||||
|
||||
Шутишь? По приведённому коду всё компилится и файл создаётся. Ищи где напутал.
Sorry, точку с запятой не поставил, но только здесь. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
|||
|
|||
Ура! Заработало! Спасибочки
|