Перейти к содержанию

payk

Пользователи
  • Постов

    645
  • Зарегистрирован

  • Посещение

Весь контент payk

  1. мну пох ! )) пусть гробят своё здоровье ! Digma +100500 иногда очень глупо смотрятся ))
  2. ~narutorengan~ +1 тоже черный экран не появляется
  3. в 18 квартале есть Нефритовые массажные кровати. Не помню сколько стоят, давно там не был.
  4. оО неплохая статья, решил отказываться от всяких прививок и как можно реже прибегать к лекарствам )))
  5. с косметикой переборС косметикой всё норм, тут черно-белый фон, из-за него всё ) НО такую красоту не скрыть бесцветными тонами
  6. Красота ! ! ! Но на 2рой фотке не очень *16. Остальные, просто великолепны !
  7. И тебе поздорву, Ци.ник. Славных и долгих дней, желаю всем ))
  8. payk

    Хвастаюсь

    Купил флейту, уже выучил все ноты ))
  9. Hannibal конечно фотожаба. Столько людей на форуме нет ! ))
  10. coder Учеба, ВСГТУ. создаю прогу с базой данных. type telefon=record fio:string[50]; tel,dy:string[12];
  11. s.fio Фамилия Имя Отчество s.tel Телефон s.dy год установки нужно, что бы прога вывела в СтрингГрид Информацию об установивших телефоны с Вводимого года.
  12. coder не научились чему ? здесь точно не такая ошибка как в прошлом коде.
  13. coder Всё, разобрался )) это лишняя часть программы ))) Спасибо. ) вот здесь еще begin assignfile(f,'H:\Телефоны.txt'); reset(f); j:=1; stringgrid1.rowcount:=2; stringgrid1.Rows[2].clear; for i:=1 to filesize(f) do begin read(f,s); if s.dy>strtoint(combobox1.text) then (вот тута ошибка) begin stringgrid1.cells[0,j]:=s.fio; stringgrid1.cells[1,j]:=s.tel; stringgrid1.cells[2,j]:=s.dy; stringgrid1.RowCount:=stringgrid1.RowCount+1; inc(j); end; end; closefile(f); end;
  14. begin StringGrid1.Cells[0,0]:='ФИО'; (вот в этой строке ошибка) StringGrid1.Cells[1,0]:='Телефон'; StringGrid1.Cells[2,0]:='Год установки'; assignfile(f,'h:/телефоны.txt'); reset(f); for i:=1 to filesize(f) do begin read(f,s); stringgrid1.cells[0,i]:=s.fio; stringgrid1.cells[1,i]:=s.tel; stringgrid1.cells[2,i]:=s.dy; StringGrid1.RowCount:=StringGrid1.RowCount+1; end; closefile(f); end;
  15. конец света близок ! ! ! спасайте свои души ! ! !
  16. О_О в 18 квартале реально туман сильный. со вспышкой
  17. Роланд из Гилеада ага, ботинками обкидать кого-нибудь на сцене.
  18. остановка трамваев на центральном рынке
  19. Скачал, установил, такая же фигня. Шо можно ещё сделать ?
  20. он вместе с раздачей шел ? в какой папке ? MirrorsEdge.exe его я заменил
  21. Люди ! ! ! У мну глюки ! ! ! вроде всё норм было, а потом она пешком начала ходить.
×
×
  • Создать...