Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Inc(j); if Edit1.Text[j] = ' ' then Inc(i); end;

Image1.Left := Round(9 + (j + 1) * 7.5); end; end;

procedure TForm1.Button7Click(Sender: TObject); var qListTwo: ListTwo; i, j: Integer; begin
StatusBar1.Panels[0].Text := ''; qListTwo := ListTwoBegin; i := 0; if ListTwoPos 0 then dec(ListTwoPos); i := 0; j := 0; while i < ListTwoPos do begin

Inc(j); if Edit2.Text[j] = ' ' then Inc(i); end; if ListTwoPos = 0 then Image2.Left := 9 else Image2.Left := Round(9 + (j + 1) * 7.5); end;

procedure TForm1.Button8Click(Sender: TObject); var qListTwo: ListTwo; i, j: Integer; begin
StatusBar1.Panels[0].Text := ''; qListTwo := ListTwoBegin; i := 0; while i ListTwoPos do begin qListTwo := qListTwo^.Next;

Inc(i); end; if qListTwo nil then begin if qListTwo^.Next nil then Inc(ListTwoPos); i := 0; j := 0; while i < ListTwoPos do begin

Inc(j); if Edit2.Text[j] = ' ' then Inc(i); end;

Image2.Left := Round(9 + (j + 1) * 7.5); end; end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin
DestroyList(ListBegin);
DestroyListTwo(ListTwoBegin);
DestroyList(QueueBegin);
DestroyList(Stack);
DestroyListTwo(DeckBegin);
Application.Terminate; end;

procedure TForm1.Button15Click(Sender: TObject); begin
StatusBar1.Panels[0].Text := 'Нельзя !!!';
Memo1.Lines.Add('В стеке нельзя возвращаться в начало т.к. указатель указывает сразу на начало;'); end;

procedure TForm1.Button16Click(Sender: TObject); var i: Integer; s: string; begin
StatusBar1.Panels[0].Text := '';
GetStack(Stack); if Stack nil then begin while Edit4.Text[StackPos] ' ' do Inc(StackPos);

Inc(StackPos); s := Edit4.Text; for i := 1 to StackPos - 1 do if s[i] ' ' then s[i] := ' ';

Edit4.Text := s; end else begin

ShowMessage('Стек пуст');

Edit4.Text := '';

Image4.Hide;

Button14.Enabled := False;

Button15.Enabled := False;

Button16.Enabled := False;

StatusBar1.Panels[1].Text := 'Стек пуст'; end;
Image4.Left := Round(StackPos * 7); end;

procedure TForm1.Button20Click(Sender: TObject); var i: Integer; s: string; begin
StatusBar1.Panels[0].Text := '';
GetDeckBegin(DeckBegin); if DeckBegin nil then begin while Edit5.Text[DeckBeginPos] ' ' do Inc(DeckBeginPos);

Inc(DeckBeginPos); s := Edit5.Text; for i := 1 to DeckBeginPos - 1 do if s[i] ' ' then s[i] := ' ';

Edit5.Text := s; end; if (DeckBegin = nil) and (DeckBegin = DeckEnd) then begin

ShowMessage('Дек пуст');

Edit5.Text := '';

Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки