[Terra]

Доброй ночи, тем кто еще не спит ! Возник такой вопрос: есть ComboBox (на каждую запись есть файл с таким-же именем), например выбираем лапти и открывается файл лапти. Вопрос в следующем, добавляем новую запись в ComboBox, например туфли,как сделать что-бы при этом создавался пустой файл типа туфли.txt ?

[angvelem]

Обрабатывай событие OnChange, в нём проверяй, если такого файла нет - создать.

[Terra]

Проверку на наличие файла я делаю, только не получается создать новый файл. Может неправильно пишу функцию для создания файла? Подскажите как правильно плс

Код:

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;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!

[angvelem]

Может так лучше будет?

Код:

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;

[Terra]

Может, только ругается на
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'

[angvelem]

Шутишь? По приведённому коду всё компилится и файл создаётся. Ищи где напутал.
Sorry, точку с запятой не поставил, но только здесь.

[Terra]

Ура! Заработало! Спасибочки