ошибка incompatible types 'string' and 'real'

[Zhenya_master]

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

а если в строчках таблицы мусор, то, разумеется, код работать не будет, нужно решать, что с такими строчками делать.

Кстати, а для чего Вы это делаете? Это, надеюсь, чисто учебный проект и в реальной жизни использоваться не будет?

Да, это учебное задание.

[Zhenya_master]

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

теперь чуток понятней...

а кто заполняет таблицу?
надеюсь, Вы таблицу читаете откуда-нибудь?
если да, то выложите архив с исходниками проекта и исходными данными.
и приложите скриншот, где видно, как заполнена таблица SG1

L и Z - там указывается ВРЕМЯ?
А почему взяли тип вещественных чисел?
разве DataTimePicker не более подходящий вариант?
Если Вам в Edit2/Edit3 введут, например, 11,815 - то это какое время? больше 11:59, но меньше 12:00 ?!

Если у Вас есть время и желание, то можете объяснить, как это всё сделать со временем? Как Вы уже видели, в самой программе я уже время добавил, но реализовать не могу.

[Serge_Bliznykov]

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

procedure TForm1.Button2Click(Sender: TObject);
var
 S: String;
 L, Z, tmp : extended;
 i,  j : Integer;
begin
  S := Edit1.Text;
  L := StrTofloatDef(Edit2.Text,-1);
  Z := StrTofloatDef(Edit3.Text, -1);
  j := SG2.FixedRows;
  SG2.RowCount := SG2.FixedRows + 1;
  SG2.Rows[j].Clear;
  for i := 0 to SG1.RowCount - 1 do begin
    if (SG1.Cells[1, i] <> S) or Not TryStrToFloat(SG1.Cells[2, i], tmp) then  Continue;
    if (tmp >= L) and (tmp <= Z) then begin
       if j = SG2.RowCount then SG2.RowCount := j + 1;
       SG2.Rows[j].Assign(SG1.Rows[i]);
       Inc(j);
    end;
  end;
end;

второе.
по поводу неверного результата.
программа переносит ровно те строки, которые Вы ей указали в своём коде, как подходящие.

Какие строки скопированы неверно, по вашему мнению?

[Serge_Bliznykov]

как это всё сделать со временем?

так Вы сначала определитесь с правилами, какие строки подходят!

потому что у Вас ДВА времени - "промежуток ОТ" и "промежуток ДО"
и два столбца "Время отправки" и "Время прибытия"

у Вас в коде проверяется только столбец "Время отправки".
Он должен попадать в заданный промежуток времени - между "промежуток ОТ" и "промежуток ДО". Так?

[Zhenya_master]

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

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

procedure TForm1.Button2Click(Sender: TObject);
var
 S: String;
 L, Z, tmp : extended;
 i,  j : Integer;
begin
  S := Edit1.Text;
  L := StrTofloatDef(Edit2.Text,-1);
  Z := StrTofloatDef(Edit3.Text, -1);
  j := SG2.FixedRows;
  SG2.RowCount := SG2.FixedRows + 1;
  SG2.Rows[j].Clear;
  for i := 0 to SG1.RowCount - 1 do begin
    if (SG1.Cells[1, i] <> S) or Not TryStrToFloat(SG1.Cells[2, i], tmp) then  Continue;
    if (tmp >= L) and (tmp <= Z) then begin
       if j = SG2.RowCount then SG2.RowCount := j + 1;
       SG2.Rows[j].Assign(SG1.Rows[i]);
       Inc(j);
    end;
  end;
end;

второе.
по поводу неверного результата.
программа переносит ровно те строки, которые Вы ей указали в своём коде, как подходящие.

Какие строки скопированы неверно, по вашему мнению?

Все, кроме второй.
Должны выполняться обязательно всё, что находится в трёх edit. Значение в 2 столбце SG1 должно быть большим, чем edit2, но и меньше, чем edit 3. Таким параметрам соответствует только строка в моём примере.
Или я не так что-то понимаю?

[Zhenya_master]

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

так Вы сначала определитесь с правилами, какие строки подходят!

у Вас в коде проверяется только столбец "Время отправки".
Он должен попадать в заданный промежуток времени - между "промежуток ОТ" и "промежуток ДО". Так?

Именно так. Столбец "Время прибытия" на результат вообще не влияет.

[Serge_Bliznykov]

вот примерно так (минимально изменил ваш пример - только для иллюстрации, как использовать время)

Project2_time.rar

Время отправления вносить в формате HH:MM или HH:MM:SS

[Zhenya_master]

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

вот примерно так (минимально изменил ваш пример - только для иллюстрации, как использовать время)

Вложение 83804

Время отправления вносить в формате HH:MM или HH:MM:SS

Спасибо большое. Сейчас проверю, как всё работает.

Всё работает именно так, как и нужно. Огромное Вам спасибо, за потраченное на меня время.

[Serge_Bliznykov]

Да не за что. Пользуйтесь на здоровье!

p.s. писал пример быстро, поэтому не успел закомментировать код.
Если есть какие-то вопросы по коду - спрашивайте, отвечу.

[Zhenya_master]

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

Да не за что. Пользуйтесь на здоровье!

p.s. писал пример быстро, поэтому не успел закомментировать код.
Если есть какие-то вопросы по коду - спрашивайте, отвечу.

 if (SG1.Cells[1, i] <> City) or Not TryStrToTime(SG1.Cells[2, i], tmp) then  Continue;

С какой целью здесь стоит слово "Not", раньше такого не встречал.
И второй вопрос, если я захочу найти время в пути, то мне нужно будет просто вычесть с 3 столбца, 2 столбец? Или же со временем тут снова всё работает иначе?