HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Песочница
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 12.07.2010, 17:37
DimQ™
Новичок
Регистрация: 11.07.2010
Сообщений: 8
С нами: 8335766

Репутация: 0
По умолчанию

Цитата:
Сообщение от herfleisch  
А чего, перл отменили уже? скрипт в 5 строк не навалять?
не могу
 
Ответить с цитированием

  #12  
Старый 12.07.2010, 18:27
M_script
Новичок
Регистрация: 04.11.2004
Сообщений: 5
С нами: 11322426

Репутация: 0
По умолчанию

C++ Builder

На форме - TButton и TMemo

код:

PHP код:
[COLOR="#000000"][COLOR="#0000BB"][/COLOR][COLOR="#FF8000"]//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

[/COLOR][COLOR="#0000BB"]TForm1[/COLOR][COLOR="#007700"]*[/COLOR][COLOR="#0000BB"]Form1[/COLOR][COLOR="#007700"];

[/
COLOR][COLOR="#FF8000"]//---------------------------------------------------------------------------

[/COLOR][COLOR="#0000BB"]String IntToStr2[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]int i[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]int c[/COLOR][COLOR="#007700"])

{

[/
COLOR][COLOR="#0000BB"]String sResult[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]IntToStr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]i[/COLOR][COLOR="#007700"]);

while([/COLOR][COLOR="#0000BB"]sResult[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]Length[/COLOR][COLOR="#007700"]() [/COLOR][COLOR="#0000BB"]Memo1[/COLOR][COLOR="#007700"]->[/COLOR][COLOR="#0000BB"]Lines[/COLOR][COLOR="#007700"]->[/COLOR][COLOR="#0000BB"]Add[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]IntToStr[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]i[/COLOR][COLOR="#007700"]));[/COLOR][COLOR="#FF8000"]// чтобы видеть процесс генерации

[/COLOR][COLOR="#007700"]for([/COLOR][COLOR="#0000BB"]j[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#0000BB"]j[/COLOR][COLOR="#007700"][/COLOR][COLOR="#0000BB"]ProcessMessages[/COLOR][COLOR="#007700"]();[/COLOR][COLOR="#FF8000"]// чтобы не подвисал интерфейс

[/COLOR][COLOR="#007700"]for([/COLOR][COLOR="#0000BB"]k[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"];[/COLOR][COLOR="#0000BB"]k[/COLOR][COLOR="#007700"][/COLOR][COLOR="#0000BB"]Write[/COLOR][COLOR="#007700"](&[/COLOR][COLOR="#0000BB"]sNum[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"]],[/COLOR][COLOR="#0000BB"]sNum[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#0000BB"]Length[/COLOR][COLOR="#007700"]());

}

}

}



[/COLOR][COLOR="#0000BB"]delete fs[/COLOR][COLOR="#007700"];

}

[/
COLOR][COLOR="#FF8000"]//---------------------------------------------------------------------------[/COLOR][/COLOR] 
 
Ответить с цитированием

  #13  
Старый 13.07.2015, 21:57
yurasena
Познающий
Регистрация: 28.06.2015
Сообщений: 73
С нами: 5725046

Репутация: 1
По умолчанию

Подборка словарей от ChesteRock(a)? мне помогли) https://cloud.mail.ru/public/LW56/mJobdBTY2
 
Ответить с цитированием
Ответ





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.