ввод массива

[TotKtoNado]

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

да переназовите же Вы наконец свой массив!
Неужели Вы не видите, что не может компилятор разобраться,
когда Вы пишете Date - о чём речь идёт - о вызове системной функции получения даты или об обращении к Вашему массиву!!!
так

var
  AllDateArray : Array of TDateTime;

или так:

var
 DatesAA : Array of TDateTime;

или даже так (если уж совсем плохо с фантазией!!!)

var
 Date111 : Array of TDateTime;

все равно

там какой то нарушение доступа к адресу

а какая разница как я назвал переменную?

[Serge_Bliznykov]

а какая разница как я назвал переменную?

Вы шутите?! Ну попробуйте назвать переменную VAR или BEGIN !
Не получилось?!

Ну тогда назовите переменные

var 
  StrToDate, DateToStr : integer;

и потом расскажите о ощущениях!!


А так что я могу сказать - выкладывайте исходники проекта (запакуйте в архив и прикрепите к сообщению через вложения).
посмотрим, что за ошибки!...

[TotKtoNado]

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

Вы шутите?! Ну попробуйте назвать переменную VAR или BEGIN !
Не получилось?!

Ну тогда назовите переменные

var 
  StrToDate, DateToStr : integer;

и потом расскажите о ощущениях!!


А так что я могу сказать - выкладывайте исходники проекта (запакуйте в архив и прикрепите к сообщению через вложения).
посмотрим, что за ошибки!...

я смог назвать переменную StrToDate, DateToStr : integer;
и смог вывести на надпись формы

[Serge_Bliznykov]

ладно, теперь код компилируется..

не смог открыть проект, т.к. у меня Delphi < 2009/2010 (DFM у Вас в новом формате)...
но не в этом дело.
А суть вот.
но объясните мне, на форме "Расход"
есть кнопка Button1 'включить фильтр'
на ней такой код:

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
SetLength(AllDateArray , 500);
AllDateArray [i]:=StrToDate(stringgridRashod.cells[0,stringgridRashod.rowCount]);
end;

я в шоке!
объясните, ЧТО вы пытались этим кодом добиться?!!!
В цикле пройти и перенести все даты из stringgridRashod -> массив дат AllDateArray ?!!!!!

тогда попробуйте примерно так:

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if (stringgridRashod.RowCount - stringgridRashod.FixedRows) < 1 then begin
    ShowMessage('В гриде ничего нет! Заполните его!');
    Exit;
  end;
  SetLength(AllDateArray, stringgridRashod.RowCount - stringgridRashod.FixedRows);
  for i:= stringgridRashod.FixedRows to stringgridRashod.RowCount-1 do
     AllDateArray[i]:=StrToDate(stringgridRashod.cells[0,i]);
end;

p.s. Это без проверки того, что у Вас в гриде вместо дат может быть всё что угодно!

[TotKtoNado]

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

ладно, теперь код компилируется..

не смог открыть проект, т.к. у меня Delphi < 2009/2010 (DFM у Вас в новом формате)...
но не в этом дело.
А суть вот.
но объясните мне, на форме "Расход"
есть кнопка Button1 'включить фильтр'
на ней такой код:

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
SetLength(AllDateArray , 500);
AllDateArray [i]:=StrToDate(stringgridRashod.cells[0,stringgridRashod.rowCount]);
end;

я в шоке!
объясните, ЧТО вы пытались этим кодом добиться?!!!
В цикле пройти и перенести все даты из stringgridRashod -> массив дат AllDateArray ?!!!!!

тогда попробуйте примерно так:

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if (stringgridRashod.RowCount - stringgridRashod.FixedRows) < 1 then begin
    ShowMessage('В гриде ничего нет! Заполните его!');
    Exit;
  end;
  SetLength(AllDateArray, stringgridRashod.RowCount - stringgridRashod.FixedRows);
  for i:= stringgridRashod.FixedRows to stringgridRashod.RowCount-1 do
     AllDateArray[i]:=StrToDate(stringgridRashod.cells[0,i]);
end;

p.s. Это без проверки того, что у Вас в гриде вместо дат может быть всё что угодно!

код

begin
SetLength(AllDateArray , 500);

просто выделяет память я ее уберу если не требуеться выделение
а код

AllDateArray [i]:=StrToDate(stringgridRashod.cells[0,stringgridRashod.rowCount]);

присваивает переменной AllDateArray дату из стринггрида

что то непонял что делает этот код?

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if (stringgridRashod.RowCount - stringgridRashod.FixedRows) < 1 then begin
    ShowMessage('В гриде ничего нет! Заполните его!');
    Exit;
  end;
  SetLength(AllDateArray, stringgridRashod.RowCount - stringgridRashod.FixedRows);
  for i:= stringgridRashod.FixedRows to stringgridRashod.RowCount-1 do
     AllDateArray[i]:=StrToDate(stringgridRashod.cells[0,i]);
end;

мне же нужно сделать фильтр который показывает даты в указанном диапазоне

и у меня код

procedure TFormRashod.ButtonClick(Sender: TObject);
begin
AllDateArray [i]:=DateTimePickerRashod.Date;
  StringgridRashod.Cells[stringgridRashod.Col,StringgridRashod.Row]:=DateToStr(AllDateArray);
  if stringgridRashod.col>0 then
    begin
      ShowMessage('Здесь не ставиться дата');    //если при нажатии на button пользователь нажмет не на нужный стобец то выскачет ошибка 'Здесь не ставиться дата'
    end;
end;

может переменную AllDateArray вобще убрать она же из за этого же наверна ругаеться? Или как сделать так чтоб не выскакивала ошибка когда нажимаешь на вставить дату

[Serge_Bliznykov]

мда....
ладно. давайте попробуем чуть-чуть освоить азы программирования...

procedure TFormRashod.ButtonClick(Sender: TObject);
begin
  AllDateArray [i]:=DateTimePickerRashod.Date;

то, что AllDateArray - это массив, Вы, вероятно понимаете (надеюсь)...
Тогда запись AllDateArray[i] := означает присвоить I-то элементу массива (т.е. элементу, который имеет индекс, или порядковый номер равный I) значение даты... Это тоже понятно?

Теперь вопрос - чему в данном случае равно I ?!
т.е. КАКОМУ конкретно элементу Вы присваиваете дату из DateTimePickerRashod.Date ?!
нулевому? Случайному?!

что то непонял что делает этот код?

procedure TFormRashod.Button1Click(Sender: TObject);
var
  i:integer;
begin
  if (stringgridRashod.RowCount - stringgridRashod.FixedRows) < 1 then begin
    ShowMessage('В гриде ничего нет! Заполните его!');
    Exit;
  end;
  SetLength(AllDateArray, stringgridRashod.RowCount - stringgridRashod.FixedRows);
  for i:= stringgridRashod.FixedRows to stringgridRashod.RowCount-1 do
     AllDateArray[i]:=StrToDate(stringgridRashod.cells[0,i]);
end;

Это код задаёт размер массива AllDateArray равным количеству строчек в StringGrid (без учёта первой, где у Вас заголовки столбцов прописаны).
Дальше в цикле все даты (все строчки, кроме первой, с заголовками) из первого столбца вашего грида переносятся в массив AllDateArray

Зачем, я не знаю...
Я же сразу сказал, что я не понимаю, для чего Вам нужен массив из дат, что Вы в дальнейшем с этим массивом (с датами, которые в нём находятся) собираетесь делать!...

[TotKtoNado]

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

мда....
ладно. давайте попробуем чуть-чуть освоить азы программирования...


то, что AllDateArray - это массив, Вы, вероятно понимаете (надеюсь)...
Тогда запись AllDateArray[i] := означает присвоить I-то элементу массива (т.е. элементу, который имеет индекс, или порядковый номер равный I) значение даты... Это тоже понятно?

Теперь вопрос - чему в данном случае равно I ?!
т.е. КАКОМУ конкретно элементу Вы присваиваете дату из DateTimePickerRashod.Date ?!
нулевому? Случайному?!



Это код задаёт размер массива AllDateArray равным количеству строчек в StringGrid (без учёта первой, где у Вас заголовки столбцов прописаны).
Дальше в цикле все даты (все строчки, кроме первой, с заголовками) из первого столбца вашего грида переносятся в массив AllDateArray

Зачем, я не знаю...
Я же сразу сказал, что я не понимаю, для чего Вам нужен массив из дат, что Вы в дальнейшем с этим массивом (с датами, которые в нём находятся) собираетесь делать!...

я считаю что нужно исправить тк ошибка выскакивает думаю из за этого
на

begin
  AllDateArray[i]:=DateTimePickerRashod.Date;
  StringgridRashod.Cells[stringgridRashod.Col,StringgridRashod.Row]:=DateToStr(AllDateArray[i]);

тока опять ошибка выскакивает