[Sm1t1k]

Имеется таблица stringgrid
Итак, нужна помощь. Требуется сделать фильтр по возрасту(до *** лет, старше *** лет, от *** до *** лет).
Также нужно сделать филтр по полу через RadioGroup
И сделать общий фильтр, т.е. допустим - мужской пол, с отличным знанием компьютера и знанием английского языка
Было бы неплохо побыстрее.

Заранее благодарен.

[Aristarh Dark]

База данных спасет гиганта мысли.

[Sm1t1k]

Сообщение от Aristarh Dark

База данных спасет гиганта мысли.

Я вас не понял, конкретней выражайтесь пожалуйсто

[NumLock]

загнать данные в ClientDataSet и отображать их в DBGrid, используя свойство Filter (у ClientDataSet).

[Sm1t1k]

Сообщение от NumLock

загнать данные в ClientDataSet и отображать их в DBGrid, используя свойство Filter (у ClientDataSet).

У меня не DBGrid, а именно StringGrid.

З.Ы. Почти все сделал, осталось только фильтр по возрасту сделать. Помогите пожалуйста.

[Alegun]

Чтоб упростить последующие вычисления хорошо бы добавить к таблице колонку "Возраст" и заполнять её данными из поля "Дата рождения" с помощью вот этого:

Код:

function CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
DecodeDate(Birthday, Year, Month, Day);
DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);
if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
Result:= 0 else
 begin
   Result:= CurrentYear - Year;
   if (Month > CurrentMonth) then Dec(Result) else
   if (Month = CurrentMonth) and (Day > CurrentDay) then Dec(Result);
 end;
// ©Drkb::04233
 end;

Пример вызова:

Код:

Label1.Caption:= Format('Петров М.А. 12.03.1978 (%d)', [CalculateAge(StrToDate('12.03.1978'), Date)]);

Фильтровать будет проще, да и нагляднее так юзеру.

[Sm1t1k]

Сообщение от Alegun

Чтоб упростить последующие вычисления хорошо бы добавить к таблице колонку "Возраст" и заполнять её данными из поля "Дата рождения" с помощью вот этого:

Код:

function CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
DecodeDate(Birthday, Year, Month, Day);
DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);
if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
Result:= 0 else
 begin
   Result:= CurrentYear - Year;
   if (Month > CurrentMonth) then Dec(Result) else
   if (Month = CurrentMonth) and (Day > CurrentDay) then Dec(Result);
 end;
// ©Drkb::04233
 end;

Пример вызова:

Код:

Label1.Caption:= Format('Петров М.А. 12.03.1978 (%d)', [CalculateAge(StrToDate('12.03.1978'), Date)]);

Фильтровать будет проще, да и нагляднее так юзеру.

Спасибо за вариант, но мне нельзя ничего менять, всё должно делатся в StringGrid. Такие вот требования.

[Alegun]

Сообщение от Sm1t1k

...всё должно делатся в StringGrid...

Какой формат данных, откуда и чем заполняется StringGrid?

[poli-smen]

Сообщение от Sm1t1k

З.Ы. Почти все сделал, осталось только фильтр по возрасту сделать. Помогите пожалуйста.

Ты сделал реализацию всех фильтров, кроме фильтра по возрасту? А в чём загвоздка добавить фильтр по возрасту?

[Sm1t1k]

Сообщение от poli-smen

Ты сделал реализацию всех фильтров, кроме фильтра по возрасту? А в чём загвоздка добавить фильтр по возрасту?

Загвоздка в том, что я не знаю как его сделать. С тем то проще, там я сделал по алфавиту фильтр, а с возрастом так не получится.

[poli-smen]

Сообщение от Sm1t1k

Загвоздка в том, что я не знаю как его сделать. С тем то проще, там я сделал по алфавиту фильтр, а с возрастом так не получится.

Ну так Alegun выше уже привёл тебе функцию CalculateAge которая по дате рождения и текущей дате возвращает возраст - осталось добавить только проверки больше/меньше и всё.

[Sm1t1k]

Сообщение от poli-smen

Ну так Alegun выше уже привёл тебе функцию CalculateAge которая по дате рождения и текущей дате возвращает возраст - осталось добавить только проверки больше/меньше и всё.

Если бы было всё так просто... Я просто не понимаю, что написать надо там, поэтому и прошу помощи на форуме. Очень прошу, скиньте готовый код. Чтобы вводить возраст в Edit и по нажатию Enter он выводил в StringGrid тот возраст, который нужен.
Заранее благодарен.

[Alegun]

Сообщение от Sm1t1k

...Очень прошу, скиньте готовый код. Чтобы вводить возраст в Edit и по нажатию Enter он выводил в StringGrid тот возраст, который нужен...

Как заполняется любимый Вами StringGrid, покажите процедуру.

[Sm1t1k]

Сообщение от Alegun

Как заполняется любимый Вами StringGrid, покажите процедуру.

StringGrid1.Editing:=true;

Ниже код для сохранения и открытия StringGrid с введенными данными.

Открыть :

Код:

procedure LoadTab(Tab: TStringGrid; const FileName: TFileName); 
var
f:TextFile;
iTmp,i,k:Integer;
strTemp:String;
begin
AssignFile(f, FileName);
Reset(f);
with Tab do
begin
Readln(f, iTmp);
ColCount := iTmp;
Readln(f, iTmp);
RowCount := iTmp;
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if OpenDialog1.Execute then
LoadTab(Tab, OpenDialog1.FileName);
Tab.Visible:=True;
N3.Enabled:=True;
N8.Enabled:=True;
N9.Enabled:=True;
end;

Сохранить как :

Код:

procedure SaveTab(Tab: TStringGrid; const FileName: TFileName); 
var
f:TextFile;
i,k:Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with Tab do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveTab(Tab, SaveDialog1.FileName);
N2.Enabled:=True;
end;

Tab это имя моей StringGrid,

[Sm1t1k]

Тему close, всё сделал.