{"id":334,"date":"2006-05-25T16:46:28","date_gmt":"2006-05-25T16:46:28","guid":{"rendered":"http:\/\/fanhaijun.com\/?p=334"},"modified":"2026-04-07T14:04:17","modified_gmt":"2026-04-07T06:04:17","slug":"%e6%93%8d%e4%bd%9c%e7%b3%bb%e7%bb%9f%e5%ae%9e%e9%aa%8c","status":"publish","type":"post","link":"https:\/\/fanhaijun.com\/?p=334","title":{"rendered":"\u64cd\u4f5c\u7cfb\u7edf\u5b9e\u9a8c"},"content":{"rendered":"

\u5b9e\u9a8c\u4e00\uff1a\u751f\u4ea7\u8005\u6d88\u8d39\u8005\u8fdb\u7a0b(delphi\u4ee3\u7801+\u7a0b\u5e8f)
\u5b9e\u9a8c\u62a5\u544a\uff1a\u70b9\u51fb\u4e0b\u8f7d<\/a>
\u6e90\u6587\u4ef6\uff1a   \u70b9\u51fb\u4e0b\u8f7d<\/a>
unit Unit1;<\/p>\n

interface<\/p>\n

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons,StrUtils;<\/p>\n

type
  TForm1 = class(TForm)
   GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    memo2: TMemo;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);<\/p>\n

  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  MyArray=array[0..14] of string;
var
  Form1: TForm1;
  memo1: TMemo;
  memo2: TMemo;
  hcdl,zsdl,jxdl:MyArray;
  steps:integer=0;
  function sta(dl:MyArray):string;
  function searchPC(pc:string;dl:MyArray):integer;
  function dlval(dl:MyArray;pos:integer):string;
  procedure PC(var dl:MyArray;pos:integer);
  procedure ZS(var dl:MyArray;pos:integer);  
implementation<\/p>\n

{$R *.dfm}<\/p>\n

procedure TForm1.Button2Click(Sender: TObject);
begin
self.Close;
end;<\/p>\n

procedure TForm1.FormActivate(Sender: TObject);
var
 i:integer;
begin
      listbox1.Items.Clear;
      listbox2.Items.Clear;
      listbox3.Items.Clear;
      memo1.Clear;
      memo2.Clear;
      edit1.Clear;
      bitbtn3.Enabled:=false;
      steps:=0;
 for i:=0 to 14 do
     begin
        hcdl[i]:='';
        zsdl[i]:='';
        jxdl[i]:='';
        listbox1.Items.Add('');
        listbox2.Items.Add('');
        listbox3.Items.Add('');
     end;
     
 
end;<\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
  var
  num,rnd,i:integer;<\/p>\n

begin
    if  edit1.text='' then
    begin
      exit;
    end;
    num:=strtoint(edit1.text);
    if (num>15) or (num<=0)  then
      begin
      showMessage ('\u8bf7\u8f93\u51651-15\u7684\u6570\u5b57\uff01');
      edit1.Clear;
      edit1.SetFocus;
      end
    else
    begin
        for i:=0 to num-1 do
          begin
            Randomize;
            rnd:=random(8)+1;
            if (rnd>=1)and (rnd<=4)  then
            jxdl[i]:='P'+inttostr(rnd)
            else
            jxdl[i]:='C'+inttostr(rnd-4);
         end;
       listbox3.Items.Clear;
 for i:=low(jxdl) to num-1 do
     begin
         listbox3.Items.Add(jxdl[i]);
     end;
     steps:=steps+1;
     memo2.Lines.Add(inttostr(steps)+'\uff1a\u968f\u673a\u751f\u6210\u4e86'+inttostr(num)+'\u4e2a\u8fdb\u7a0b\uff01');
   
     for i:=num to high(jxdl) do
     begin
        listbox3.Items.Add('');
       end;
    end;
    bitbtn3.Enabled:=true;
end;<\/p>\n

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
self.Close;
end;<\/p>\n

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
self.FormActivate(Sender);
end;<\/p>\n

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  zsdlsta,hcdlsta,jxdlsta:string;
  jxtop:string;
begin
zsdlsta:=sta(zsdl);\/\/\u5224\u65ad\u963b\u585e\u961f\u5217\u72b6\u6001\uff0c\u7a7a\u4e0e\u975e\u7a7a
hcdlsta:=sta(hcdl);\/\/\u5224\u65ad\u7f13\u51b2\u6c60\u72b6\u6001
jxdlsta:=sta(jxdl);\/\/\u5c31\u7eea\u961f\u5217\u72b6\u6001
jxtop:=dlval(jxdl,0);\/\/\u5224\u65ad\u5c31\u7eea\u961f\u5217\u7b2c\u4e00\u4e2a\u8fdb\u7a0b\u7684\u7c7b\u578b
if zsdlsta<>'empty' then
    begin             \/\/\u963b\u585e\u4e0d\u4e3a\u7a7a \uff0c\u5c31\u4ece\u963b\u585e\u961f\u5217\u62ff
     {steps:=steps+1;
     memo2.Lines.Add(inttostr(steps)+'\uff1a\u963b\u585e\u961f\u5217\u4e0d\u4e3a\u7a7a');
     }
        if   hcdlsta='empty' then \/\/\u7f13\u51b2\u4e3a\u7a7a\uff0c\u9700\u8981\u751f\u4ea7\u8005
              begin
               \/\/     showmessage('\u5728<\/p>\n","protected":false},"excerpt":{"rendered":"

\u5b9e\u9a8c\u4e00\uff1a\u751f\u4ea7\u8005\u6d88\u8d39\u8005\u8fdb\u7a0b(delphi\u4ee3\u7801+\u7a0b\u5e8f)\u5b9e\u9a8c\u62a5\u544a\uff1a…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"categories":[101],"tags":[],"class_list":["post-334","post","type-post","status-publish","format-standard","hentry","category-college-life"],"_links":{"self":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/334","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=334"}],"version-history":[{"count":0,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/334\/revisions"}],"wp:attachment":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=334"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=334"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=334"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}