stringgrid (delphi) - найти цену билета в зависимости от расстояния

[Падаван]

Уважаемые программисты помогите мне пожалуйста с кодом.
В таблице две столбца 1 расстояние, 2 цена билета, цена билета зависит от расстояния: 10км-20рублей. если расстояние выше 100км то дается скидка 5%

[Serge_Bliznykov]

Ну, просто всё. Что у Вас не получается?

И наводящие вопросы, собственно, у меня только по интерфейсу:
Откуда берутся данные в столбце 1 (где расстояние) ?
По какому событию должен производится расчёт цены билета?

[Падаван]

в 1 столбце появляются рэндомно, при нажатии кнопочки расчет записывается цена билета

[Serge_Bliznykov]

Готово. Можете перечислять деньги!

StringGrid_Tickets_Source.rar
StringGrid_Tickets_EXE.rar

суть:

implementation
uses Math;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var i, n : integer;
begin
  n := StrToIntDef(edQuantityRow.Text,-1);
  if n<0 then begin
     Application.MessageBox('Укажите положительное целое число строк', 'Ошибка', MB_OK);
     Exit;
  end;

  sg1.RowCount := n+1;
  for i := sg1.FixedRows to sg1.RowCount-1 do begin
     sg1.Cells[0, i] := IntToStr(Random(1000)+1);
     sg1.Cells[1,i] := '';
  end;

end;

procedure TForm4.Button2Click(Sender: TObject);
var i, Dist : integer;
   cost : double;
begin
  for i:= sg1.FixedRows to sg1.RowCount - 1 do begin
     Dist := StrToIntDef(sg1.Cells[0, i],-1);
     if Dist < 0 then sg1.Cells[1, i] := '#ошибка'
     else begin
        cost := Ceil(Dist / 10) * 20.00; {за каждые 10 км - 20 руб}
        if Dist>=100 then begin
            Cost := Cost * 0.95;
            sg1.Cells[1, i] := FloatToStr(cost)+' руб. (со скидкой);';
        end
        else
          sg1.Cells[1, i] := FloatToStr(cost) + ' руб. ';
     end;

    //
  end;

end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  Randomize;
  sg1.FixedRows := 1;
  sg1.RowCount := 2;
  sg1.Cells[0,0] := 'Расстояние';
  sg1.Cells[1,0] := 'Цена билета';
end;

end.