Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 69 из 116 • <  1 ... 66  67  68  69  70  71  72 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  W[E]RTEX

Member
Статус: Не в сети
Регистрация: 04.04.2005
Откуда: Екатеринбург
Вот есть такая шифровка и ответ:
Код:
<еР.ТуМсEчОfгцЦщЭиЧшМцРщХmйbEтAюмcЦeФdЯРЯeJkЦgQcD
до принятия судебного постановления судом первой инстанции

говорят что: "обыкновенное прибавление к коду символа" вроде как порядкового номера из таблици помогите найти ключ.
Реклама

Партнер
  svin

Member
Статус: Не в сети
Регистрация: 08.03.2004
Откуда: Житомир, UA
Гуру програмирования помогите написать прогу: интерполяция функции методом наименьших квадратов которая задаеться таблично.
Очень надо.

_________________
BF3: [DNO] abraziff

  ZNik

W[E]RTEX писал(а):
говорят что: "обыкновенное прибавление к коду символа" вроде как порядкового номера из таблици помогите

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

Member
Статус: Не в сети
Регистрация: 31.01.2004
Откуда: moskow
Народ подскажите правильно ли я замеряю латентность оп памяти:
Код:
var
  rm,i:integer;
  z:int64;
  time,time1,time2:integer;
  lat1,lat2:string[6];
begin
   stop:=false;
   button2.Caption:='Stop';
   randomize;
repeat
 time1:=gettickcount;
 for i:=1 to 33554432 do
 begin
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
   rm:=random(4194304);
   z:=massiv[rm];
  end;
  time2:=gettickcount;
  time:=time2-time1;
  label1.Caption:='time: '+floattostr(time/1000)+'Sec  Mem: '+inttostr(512)+'mb';
  lat1:=floattostr((512000)/time);
  label3.caption:='Lat: '+lat1+'  mb/sec';
  lat2:=floattostr(((time*1000)/268435.456));
  label2.Caption:='Lat: '+lat2+' nsec/byte';
  application.ProcessMessages;
until stop=true;
  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Locki нет :D
Смотри исходники RightMark Memory Analizer, и не юзай GetTickCount.
Добавлено спустя 22 секунды
И вынеси замеры в отдельный поток.

_________________
Ку ку

  Locki

Member
Статус: Не в сети
Регистрация: 31.01.2004
Откуда: moskow
Daemon да там на Си все -- "ну непонятно!"
Почему не юзать Gettickcount и че юзать тогда?
Почему в отдельный поток, а не просто поставив высокий приоритет?
  Daemon

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Locki
Цитата:
Почему не юзать Gettickcount и че юзать тогда?
QueryPerformanceCounter.
Цитата:
Почему в отдельный поток, а не просто поставив высокий приоритет?
Некрасиво :)

_________________
Ку ку

  svin

Member
Статус: Не в сети
Регистрация: 08.03.2004
Откуда: Житомир, UA
Добрые люди, подскажите, что надо набрать что бы сделать ссылку с одной кнопки на другую.

_________________
BF3: [DNO] abraziff

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
в событии onClick Button1 написать ЭТО СПАМ - ОТПРАВЬТЕ ЖАЛОБУ (синий квадрат);

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  svin

Member
Статус: Не в сети
Регистрация: 08.03.2004
Откуда: Житомир, UA
Lord_of_Darkness спасибо, уже разобрался.

_________________
BF3: [DNO] abraziff

  svin

Member
Статус: Не в сети
Регистрация: 08.03.2004
Откуда: Житомир, UA
Короче есть у меня Button1(Enabled False), что мне надо сделать она активирывалась при заполнении ячеек в StringGrid1?

_________________
BF3: [DNO] abraziff

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
svin заполнил ячейки, вызвал Button1.Enabled:=true; ;)

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  svin

Member
Статус: Не в сети
Регистрация: 08.03.2004
Откуда: Житомир, UA
Lord_of_Darkness спасибо, мне добрые люди подсказали как сделать по другому:
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i1,i2: integer;
b: boolean;
begin
b:=true;
for i1:=1 to 3 do
for i2:=1 to 2 do
if stringgrid1.cells[i1, i2]='' then
begin
b:=false; break;
end;
button1.enabled:=b;
end;

_________________
BF3: [DNO] abraziff

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
svin так и сказал бы, что при заполнении определенных ячеек. Я же не телепат. Учись правильно задавать вопросы, чтобы получать на них правильные ответы.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  Aleksoid1978

Member
Статус: Не в сети
Регистрация: 02.03.2005
Откуда: Владивосток
Подскажите что-нибудь для распознавания текста - компонент, класс или пример. Очень нужно...))
  defecator

Junior
Статус: Не в сети
Регистрация: 19.09.2005
Откуда: Подольск
Aleksoid1978

Наивный, такие вещи, во-первых, денег стоят нехилых, а во-вторых, то, что есть, не отличается "ни умом, ни сообразительностью".
Смотри в сторону FineReader Engine, он в виде COM-объектов реализован.
Если вдруг где раздобудешь, шумни :-) Сам ищу давно.

_________________
Linux - must die.
Долгих лет тебе, Билли !

  Beavich

Нужна ваша помощь!
Нужно вывести в комбобокс список файлов *.lng из определенной дериктории
(в комбобоксе расширение не указывать)
Как это сделать(если можно подробнее)
Заранее благодарен :)
  _DiseL_

Member
Статус: Не в сети
Регистрация: 17.09.2003
Откуда: UA г.Донецк
Beavich
Процедура сканирования (Начальная папка, маска сканирования, любой потомок от Tstrings можно TStringList)

Код:
procedure TForm1.ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
// определяем какая маска для сканирования
  if Mask = '' then
    Mask := '*.*';
// проверяем правильность написания пути для сканирования
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
// ищем первый файл
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then // если файл найден то продолжаем поиск
  begin
    repeat
      Application.ProcessMessages; // остановка для обработки очереди сообшений ОС
      // если найден файл а не директория то записываем в список
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
  // ищем до тех пор пока есть файлы
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;


Потом сделай обработку полученного списка с целью поудалять расширение из файла и просто присвой свой список списку в ListBox

_________________
Debian Lenny/Sid
при установке линукс не пострадал ни один пингвин, полегли все дятлы

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Код:
List.Add(StartDir + SearchRec.Name)

Можно сразу заменить на
Код:
List.Add(ChangeFileExt(StartDir + SearchRec.Name,""))


  Beavich

Ray & Disel
Большое спасибо, все работает, принцип понятен
Только вводил сразу в комбобокс (combobox1.Items.Add(ChangeFileExt(searchrec.Name,''));)и в упрощенной форме
Вы мне очень помогли
-------------------------------
Ray, спасибо за AtiTT, чтобы я делал без него?!:beer::beer:
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 69 из 116 • <  1 ... 66  67  68  69  70  71  72 ... 116  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan