VPF::Как красиво реализовать - Форум программистов

RinOSpro

Дата 11.12.2008, 15:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть множество однотипных процедур в основе которых лежит цикл. Вместо того чтобы в каждой организовывать цикл. Лучше сделать основной цикл. и как то передавать туда в цикл нужную процедуру:

Код


  ADataSours.DisableControls;
  ADataSours.First;

  while not ADataSours.Eof do
  begin
    // а вот тут должны вызываться множество однотипных процедур
  end;

    ADataSours.Next;

    end;

Как это красиво реализовать?

Poseidon

Дата 11.12.2008, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(RinOSpro @ 11.12.2008, 15:36

)

Есть множество однотипных процедур в основе которых лежит цикл.

Не мешало бы и их увидеть

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Bose

Дата 11.12.2008, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Например так:

Код


// объявляя типы процедур
type
  TMyDatasetProcObj = procedure (aDataset:TDataset) of object; // для методов классов
  TMyDatasetProc = procedure (aDataset:TDataset); // для процедур

procedure ForEachRecordPerform(aDataset:TDataset; aProc:TMyDatasetProcObj);
begin
  aDataset.DisableControls;
  try
    aDataset.First;
    while not aDataset.Eof do
    begin
      aProc(aDataset);
      aDataset.Next;
    end;
  finally
    aDataset.EnableControls;
  end;
end;

Минус в том, что для процедур и методов класса придётся писать отдельные реализации ForEachRecordPerform, лучше всего выбрать один тип и работать только с ним.

п.с. не уверен что понял вопрос smile

Это сообщение отредактировал(а) Bose - 11.12.2008, 15:48

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

RinOSpro

Дата 11.12.2008, 15:55 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Bose ты правильно понял вопрос... я тоже думал об этом но почему то этот вариант меня не устроил... Это нормально так делать?

bems

Дата 11.12.2008, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(RinOSpro @ 11.12.2008, 15:55

)

Это нормально так делать?

хочешь об этом поговорить? ))
Тут все нормально.

--------------------

Обижено школьников: 8

RinOSpro

Дата 11.12.2008, 16:10 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

У меня не процедуры а функции, и проблема будет вот в чем: обычно я возвращаю Boolean но в одном случае придется string, вот тут то придется думать...

А так действительно красиво smile

Код


  LoopAlongTable(DataUpdate, FindOldVersion);

Bose

Дата 11.12.2008, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Цитата(RinOSpro @ 11.12.2008, 15:55

)

Это нормально так делать?

Нормально писать для каждого случая свой код. В том смысле нормально, что чаще всего делают именно так. smile

Цитата(RinOSpro @ 11.12.2008, 16:10

)

У меня не процедуры а функции, и проблема будет вот в чем: обычно я возвращаю Boolean но в одном случае придется string, вот тут то придется думать...

В этом случае наверное так:

Код


type
  TMyDatasetObjFuncBool = function (aDataset:TDataset):Boolean of object; // для методов классов
  TMyDatasetObjFuncString = function (aDataset:TDataset):string of object; // для методов классов
procedure ForEachRecordPerformBool(aDataset:TDataset; aProc:TMyDatasetObjFuncBool); 
begin
  aDataset.DisableControls;
  try
    aDataset.First;
    while not aDataset.Eof do
    begin
      aProc(aDataset);
      aDataset.Next;
    end;
  finally
    aDataset.EnableControls;
  end;
end;

procedure ForEachRecordPerformString(aDataset:TDataset; aProc:TMyDatasetObjFuncString ); 
begin
  aDataset.DisableControls;
  try
    aDataset.First;
    while not aDataset.Eof do
    begin
      aProc(aDataset);
      aDataset.Next;
    end;
  finally
    aDataset.EnableControls;
  end;
end;

Как это лучше сделать в принципе зависит от задачи. Наверное можно вместо двух типов объявить один, с функцией возвращающей variant.

Код


type
  TMyDatasetObjFuncVar = function (aDataset:TDataset):variant of object; // для методов классов

п.с. Можно конечно объявить функции с одинаковыми названиями и overload-ом. Но в последнее время overloading мне не нравится. smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

RinOSpro

Дата 11.12.2008, 18:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Bose в той функции что возвращала string, сделал ее так что теперь она возвращает boolean а string пишет в глобальную переменную.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »