вопрос по коду (отладка)

[Johny58]

Ребят, есть код, он работает, но процедура при вызове не выполняет свое предназначение. Она должна прибавлять первоначальным минутам +1, если минут < 59 и учитывать смену суток (23:59 - 00:00).

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
    time=record
            h:0..23;
            m:0..59;
          end;
    TForm1 = class(TForm)
    st: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; i: integer; tm: time;

implementation

{$R *.dfm}

procedure sledmin(t: time; var t1: time);
var
  tm: time;
begin
  tm.h:=t.h;
  tm.m:=t.m;

  if t.m <> 59 then t1.m := t.m + 1
  else begin
    t1.m:=0;
  if tm.h <> 23 then t1.h := tm.h + 1
  else begin
    t1.h := 0;
       end;
    end;
  t1.h:=tm.h;
  t1.m:=tm.m;
  end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
  st.Cells[0,0]:='№';
  st.Cells[1,0]:='Часы';
  st.Cells[2,0]:='Минуты';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  i:=i+1;
  st.Cells[0,i]:=inttostr(i);
  st.Cells[1,i]:=Edit1.Text;
  st.Cells[2,i]:=Edit2.Text;
  tm.h:=strtoint(Edit1.Text);
  tm.m:=strtoint(Edit2.Text);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  t11, t111: time;
begin
  sledmin(t11, t111);
  i:=i+1;
  st.Cells[0,i]:=inttostr(i);
  st.Cells[1,i]:=inttostr(tm.h);
  st.Cells[2,i]:=inttostr(tm.m);
end;

end.

[Alex11223]

Ну так возьмите отладчик, поставьте breakpoint в том месте, и смотрите что там происходит, раз речь об отладке.

[evg_m]

0) избавьтесь от глобальных переменных (в особенности если есть ТАКИЕ же но локальные) путаница невообразимая.
Сделайте все tm: time; локальными.

1) расставляем комментарии

tm:=...// запомнили исходные данные
  tm.h:=t.h;
  tm.m:=t.m;

t1:= ... //посчитали новые значения
  if t.m <> 59 then t1.m := t.m + 1
  else begin
    t1.m:=0;
  if tm.h <> 23 then t1.h := tm.h + 1
  else begin
    t1.h := 0;
       end;
    end;
t1:=tm; //вернули запомненное
  t1.h:=tm.h;
  t1.m:=tm.m;

2) Оставляем только комментарии

tm:=...// запомнили исходные данные
t1:= ... //посчитали новые значения
t1:=tm; //вернули запомненное

4) дальше продолжать или все ясно?

[Johny58]

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

0) избавьтесь от глобальных переменных (в особенности если есть ТАКИЕ же но локальные) путаница невообразимая.
Сделайте все tm: time; локальными.

1) расставляем комментарии

tm:=...// запомнили исходные данные
  tm.h:=t.h;
  tm.m:=t.m;

t1:= ... //посчитали новые значения
  if t.m <> 59 then t1.m := t.m + 1
  else begin
    t1.m:=0;
  if tm.h <> 23 then t1.h := tm.h + 1
  else begin
    t1.h := 0;
       end;
    end;
t1:=tm; //вернули запомненное
  t1.h:=tm.h;
  t1.m:=tm.m;

2) Оставляем только комментарии

tm:=...// запомнили исходные данные
t1:= ... //посчитали новые значения
t1:=tm; //вернули запомненное

4) дальше продолжать или все ясно?

Если Вас не затруднит, то хорошо бы было продолжить. Заранее спасибо.

[evg_m]

Все что вы так долго и упорно считали двумя последними строчками кода процедуры
а именно

 t1.h:=tm.h;
 t1.h:=tm.m;

свели на нет.
Ранее вычисленное значение затерли старым значением.

[min@y™]

Чем тебе плох тип TDateTime? Нахрена кривой велосипед с квадратными колёсами?