[Savant]

DillerInc
увеличится размер выходного файла (при установке Range или Overflow Checking), но будешь узнавать о всех недосмотрах в коде программы

[DillerInc]

Чего-то я запутался в следующем:

Код:

procedure TfmSubRip_Mod.bbOpenClick(Sender: TObject);
{Открываем текстовый файл с титрами}
begin
 OpenDialog1.Filter := 'Титры с расширением "srt"|*.srt';
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
   mmOutput.Lines.LoadFromFile(OpenDialog1.FileName);  // Загружаем в многострочное поле текст из файла
   lbOutput.Caption := 'Нажмите "Пуск",чтобы начать исправление символов';  // Добавляем текст в метку

...это всё если OpenDialog1.Execute = True,а мне надо добавить сюда ещё обработчик события OpenDialog1.Execute = False(типа пользователь передумал открывать файл и нажал Cancel),который будет опять добавлять текст в метку,например:

Код:

lbOutput := 'Повторите операцию "Открыть файл" ';

В общем,попытка добавить в конец вышеуказанного кода слово else вызывает кучу всяких ошибок.Если добавить ещё один условный оператор if...then,то диалоговое окно открытия файла заставляет по два раза открывать нужный файл...

[Savant]

DillerInc

Код:

procedure TfmSubRip_Mod.bbOpenClick(Sender: TObject);
{Открываем текстовый файл с титрами}
begin
  OpenDialog1.Filter := 'Титры с расширением "srt"|*.srt';
  if OpenDialog1.Execute then begin
    if FileExists(OpenDialog1.FileName) then begin
      mmOutput.Lines.LoadFromFile(OpenDialog1.FileName);  // Загружаем в многострочное поле текст из файла
      lbOutput.Caption := 'Нажмите "Пуск",чтобы начать исправление символов';  // Добавляем текст в метку
      end else lbOutput.Caption := 'Файл не найден' end else
    lbOutput.Caption := 'Повторите операцию "Открыть файл" ';

[DillerInc]

Savant
Ай да Savant - выручатель мой!Действительно получилось,как я хотел.
Спасибо .

[DillerInc]

Доброго всем времени суток!
Это снова я...со своими вопросами.А именно,имеется вопрос по использованию переменных в подпрограммах.
Код:

Код:

unit FileDateU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, Mask;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    bbOpen: TButton;
    OpenDialog1: TOpenDialog;
    Panel2: TPanel;
    lbOutput2: TLabel;
    Panel3: TPanel;
    lbOutput1: TLabel;
    edMaskInput: TMaskEdit;
    bbRun: TBitBtn;
    procedure bbOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 lbOutput2.Caption := 'Нажмите "Открыть",чтобы открыть файл и узнать дату его создания';
end;

procedure TForm1.bbOpenClick(Sender: TObject);
var
 FileHandle : Integer;
 Date : String;
begin
   OpenDialog1.Filter := 'Все файлы|*.*';
if OpenDialog1.Execute then
begin
if FileExists(OpenDialog1.FileName) then
begin
   FileHandle := FileOpen(OpenDialog1.FileName, fmOpenWrite or fmShareDenyNone);
   Date := DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)));
   lbOutput1.Caption := Date;
   lbOutput2.Caption := 'Теперь введите новую дату в редактируемое поле и нажмите "OK",чтобы установить новую дату создания файла';
   edMaskInput.SetFocus;
end else
   lbOutput2.Caption := 'Файл не найден'
end else
   lbOutput2.Caption := 'Повторите операцию открытия файла';
end;

procedure TForm1.bbRunClick(Sender: TObject);
var
 Date2 : String;
begin
 Date2 := edMaskInput.Text;
 FileSetDate(FileHandle, (DateTimeToFileDate(StrToDateTime(Date2))));
end;

end.

Вот насчёт переменной

Код:

var
 FileHandle : Integer;

...мне почему-то не удаётся связать практику с теорией.По теории подпрограмме доступны те переменные,которые были уже объявлены и описаны в предшествующих подпрограммах.Получается,что подпрограмма TForm1.bbRunClick должна видеть переменную,объявленную и описанную в подпрограмме TForm1.bbOpenClick,но при прогоне программы компилятор,проверяя функцию FileSetDate,сообщает об ошибке "Undeclared Identifier"(FileHandle).
Подскажите,пожалуйста,что я не так понимаю и как можно поправить ситуацию?

[Savant]

DillerInc

По теории подпрограмме доступны те переменные,которые были уже объявлены и описаны в предшествующих подпрограммах

По теории подпрограмме доступны те переменные, которые объявлены в зоне её видимости. Т.е. глобальные переменные, объявленные вообще вне любой подпрораммы, а также еще в случае, когда одна процедура вложена в другую. Лучше наверно показать на довольно прикольном примере, который ща сочинил:

Код:

program Project_test;
{$APPTYPE CONSOLE}

Код:

var TEST: Integer = 5; // объявляем глобальную переменную
procedure a(SUPER: Integer);
// заметим, что переменная SUPER является объявленной локально, 
// т.е. существует только внутри процедуры a; и вложенных в неё
  procedure b;
  begin
	inc( SUPER ); // super = 2+1 = 3
	dec( TEST );  // test = 5-1 = 4 <-тут изменяем глобальную переменную TEST
  end;
var TEST: Integer; // перекрываем глобальную переменную локальной
  procedure c;
  begin
	dec( SUPER ); // super = 3-1 = 2
	inc( TEST );  // test = 2+1 = 3 <- а тут - локальную
  end;
begin
  TEST := SUPER;
  b; WriteLn(TEST,' ',SUPER); // test=2!!! super=3
  c; WriteLn(TEST,' ',SUPER); // test=3	super=2
end;
begin
  a(2);
  WriteLn(TEST); // И наконец в подтверждение выводим глобальную переменную TEST
				 // уменьшенную в процедуре b; на единицу
  ReadLn;
end.

[Savant]

Ах да, еще спрашивалось, как подправить. Ну, думаю, это уже стало понятно - сделать FileHandle глобальной:

Код:

...........
implementation
 
{$R *.dfm}
 
var
  FileHandle : Integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
...........

Правда, она не становится глобальной в общем смысле, а также есть некоторые особенности объявления переменных внутри interface и implementation.

[DillerInc]

Savant
Спасибо,действительно начинает потихоньку мотаться на ус,только для меня теперь остаётся непонятным использование секции интерфейсных объявлений(interface) и секции реализаций(implementation),т.е. всегда ли можно объявлять глобальные переменные в секции реализаций и какие там есть особенности или можно также использовать т.н. поля класса - объявления переменных в следующем месте:
private
{Private declarations}
...?

[Savant]

1. Переменная, объявленная внутри implementation будет доступна всему коду , расположенному ниже её объявления.
2. Переменная, объявленная внутри interface будет доступна всему коду , расположенному ниже её объявления, а также программе, которая использует данный unit.
3. Переменная, объявленная внутри секции private будет доступна только для внутренних вызовов из данного класса.

[DillerInc]

Savant
Премного благодарю .
Теперь немного о функциях рассмотренного выше кода,а именно функции FileGetDate и FileSetDate - насколько я впоследствии понял,они орудуют датой последней модификации определённого файла.А я хотел,чтобы программка изменяла именно дату создания файла.Так вот вопрос: возможно ли такое "дельфийскими силами" и какие функции тогда использовать?