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

[Zhenya_master]

ошибка incompatible types 'string' and 'real', долго искал в интернете как исправить эту ошибку, выбивало много разных советов, но не помогло. Решил обратиться к вам. Ошибку выбивает после слова "then"

procedure TForm1.Button2Click(Sender: TObject);
var
 S: String;
   L, Z: real;
  i,  j : Integer;
begin
  S := Edit1.Text;
  L := StrTofloat(Edit2.Text);
  Z := StrTofloat(Edit3.Text);
  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)then  Continue;
    if FloatToStr(SG1.Cells[2, i] > L and FloatToStr(SG1.Cells[2, i] < Z then  Continue;
    if j = SG2.RowCount then SG2.RowCount := j + 1;
    SG2.Rows[j].Assign(SG1.Rows[i]);
    Inc(j);
  end;
end;

Прочитайте о том, как правильно оформлять код программ вот здесь: http://www.programmersforum.ru/showp...23&postcount=3

[Аватар]

if FloatToStr(SG1.Cells[2, i] > L and FloatToStr(SG1.Cells[2, i] < Z then Continue;

В ячейке строка, чего FloatToStr к ней применил? И правильные скобочки в таких логических выражениях крайне необходимы

[Zhenya_master]

Сообщение от Аватар

if FloatToStr(SG1.Cells[2, i] > L and FloatToStr(SG1.Cells[2, i] < Z then Continue;

В ячейке строка, чего FloatToStr к ней применил? И правильные скобочки в таких логических выражениях крайне необходимы

Если ставить скобки, вылазит эта же ошибка, но уже возле скобок. Надо применить StrToFloat?

[Serge_Bliznykov]

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

Если ставить скобки, вылазит эта же ошибка, но уже возле скобок. Надо применить StrToFloat?

чисто формально (исходя из синтаксиса) - да, вам нужно из строки преобразовавать в числовое значение, а это как раз StrToFloat

поэтому, формально, эта строчка должна выглядеть так:

if (StrToFloat(SG1.Cells[2, i]) > L) and (StrToFloat(SG1.Cells[2, i]) < Z ) then  Continue;

почему "формально"? потому что мне алгоритм ваших действий непонятен, что Вы перебираете, что ищете и чего хотите добиться....

да, ещё. Если в строке будет не число - будет ошибка (exception).

[Zhenya_master]

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

чисто формально (исходя из синтаксиса) - да, вам нужно из строки преобразовавать в числовое значение, а это как раз StrToFloat

поэтому, формально, эта строчка должна выглядеть так:

if (StrToFloat(SG1.Cells[2, i]) > L) and (StrToFloat(SG1.Cells[2, i]) < Z ) then  Continue;

почему "формально"? потому что мне алгоритм ваших действий непонятен, что Вы перебираете, что ищете и чего хотите добиться....

да, ещё. Если в строке будет не число - будет ошибка (exception).

Вот задание, чтобы вы смогли понять, что я тут вообще делаю: Человек вводит запрос, в котором указывает: требуемый ему пункт назначения и интервал возможного времени отправления (пример: Москва, с 10.00 до 11.30). Программа отображает данные из таблицы SG1, удовлетворяющие запрос клиента в SG2. Вид таблицы SG1 0 столбец позиция строки, 1 столбец Название города, 2 столбец время отправления, 3 время прибытия и 4 столбец стоимость.
Я запустил программу со строкой, которую вы дали и она выбивает ошибку при нажатии кнопки обработки : '' is not a valid floating point value. Я поискал причины появления этой ошибки, но что бы я не делал, всё равно выскакивает.

Исправил ошибку, но всё равно программа не хочет правильно считать.

[Serge_Bliznykov]

Вот задание, чтобы вы смогли понять, что я тут вообще делаю

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

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

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

[Zhenya_master]

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

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

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

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

Пока что ни откуда не читаю, сам быстро заполняю 3-4 строки и проверяю работоспособность программы. Я понимаю, что со временем DataTimePicker это задание выглядело бы гораздо лучше, но я сколько бы не пытался разобраться, как сравнивать время, пытался найти в интернете побольше информации об этом но так и не смог вникнуть. Вот архив с моей программой.

[Serge_Bliznykov]

проблема в том, как Вы заполняете грид.

вот, например, я заполнил целыми числами:
ss1.png

[Serge_Bliznykov]

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

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

[Zhenya_master]

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

проблема в том, как Вы заполняете грид.

вот, например, я заполнил целыми числами:
Вложение 83802

Вот и я заполнил таблицу, но результат то не верный.