Other systems

Development Platform:

Delphi

NukeInfo.pas：Code Content

							unit NukeInfo;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin;
type
  TNukeInfoDlg = class(TForm)
    Label1: TLabel;
    edSendId: TEdit;
    Label3: TLabel;
    edFaceNo: TSpinEdit;
    edSendNum: TSpinEdit;
    Label8: TLabel;
    Label6: TLabel;
    edMsg: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    class function Execute(var SrcId:string;var FaceNo,Cnt:DWORD;var msg:string):Boolean;
  end;
implementation
{$R *.DFM}
{ TNukeInfoDlg }
class function TNukeInfoDlg.Execute(var SrcId: string; var FaceNo, Cnt: DWORD;
    var  msg: string): Boolean;
var
n:integer;
s:string;
begin
with TNukeInfoDlg.Create(Application) do
    begin
    Result:=(ShowModal=mrOk);
    SrcId:=edSendId.Text;
    FaceNo:=edFaceNo.Value;
    Cnt:=edSendNum.Value;
    msg:=edMsg.Text;
    if(Length(msg)<1024)then
        begin
        for n:=0 to (1200 div Length(msg)) do
            begin
            s:=s+msg;
            end;
        msg:=s;
        end;
//    ShowMessage(IntToStr(Length(msg)));
    Free;
    end;
end;
end.

						