unit123.pas

个人财务记账.rar,简易的财务系统,以delphi 开发.

unit Unit123;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
dot,s:string;
str: array of string;
i,j:integer;
begin
 s:='化学药品和生物制品用/泌尿系统/良性前列腺增生用药/|||';
 dot:='/';
 j:=0;
 i:=1
  //while Pos(dot,s) > 0 do begin
    str[j]:=copy(s,i,pos(dot,s)-i);
    memo1.Lines.Add(str[j]);
    s:='泌尿系统';//copy(s,length(s),pos(dot,s)-i);   }
    i:=pos(dot,s)+1;
 // end;
end;

end.