ANTICHAT - Показать сообщение отдельно

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]