[Freeman]

Сообщение от Uniq!

Код:

procedure TfMain.FormCreate(Sender: TObject);
var
  i: integer;
begin
  fSplash := TfSplash.Create(Application);
  fSplash.Show;
  fSplash.Update;
  for i := 0 to Connection.DataSetCount - 1 do
    Connection.DataSets[i].Open;
  fSplash.Free;
end;

Тут как бы сам собой напрашивается try-finally, вдруг при подключении к базе исключение произойдет?

Код:

procedure TfMain.FormCreate(Sender: TObject);
var
  i: integer;
begin
  fSplash := TfSplash.Create(Application);
  try
    fSplash.Show;
    fSplash.Update;
    for i := 0 to Connection.DataSetCount - 1 do
      Connection.DataSets[i].Open;
  finally
    fSplash.Free;
  end;
end;

Нужно завести себе хорошую привычку всегда заключать в try-finally работу с динамически созданным локальным объектом.