Показать сообщение отдельно
  #4  
Старый 03.08.2011, 03:53
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Может так лучше будет?
Код:
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 в.д.
Ответить с цитированием