unit6.pas

来自「计算个人所得税与牛顿迭代法实现的作业源码。」· PAS 代码 · 共 96 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Buttons;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Button1: TButton;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
  form6.Edit1.Text:='';
  form6.Edit2.Text:='';
  form6.Memo1.Clear;
end;

procedure TForm6.Button1Click(Sender: TObject);

var
  s1,s2:String;
  i,k,flag:integer;
begin
  k:=1;
  flag:=1;
  Memo1.Lines.Clear;
  s1:=Edit1.Text;
  s2:=Edit2.Text;
  if s1='' then
    begin
      showmessage('  请输入要分割的字符串！');
      Edit1.SetFocus;
    end;
  if s2='' then
    begin
      showmessage('  请输入字符分割标志！');
      Edit2.SetFocus;
    end;
      i:=Pos(s2,s1);
      if i=0 then
        begin
          Memo1.Lines.Add('    所输入的分割标志符'+'（'+s2+'）');
          Memo1.Lines.Add('在字符串中没找到！');
          flag:=0;
        end;
  while (s1<>'')and(flag<>0) do
    begin
      i:=Pos(s2,s1);
      if i=1 then
          begin
            Delete(s1,1,i+length(s2)-1);
          end
      else if i=0 then
          begin
            Memo1.Lines.Add(inttostr(k)+'行:'+copy(s1,1,length(s1)));
            Delete(s1,1,length(s1));
            k:=k+1;
          end
      else
          begin
            Memo1.Lines.Add(inttostr(k)+'行:'+copy(s1,1,i-1));
            Delete(s1,1,i+length(s2)-1);
            k:=k+1;
          end;
    end;
end;

end.