【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了dazi.pas提供大家参考,希望对大家有所帮助!
unit dazi;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl, ExtCtrls, Buttons, ComCtrls;
type
Tmain = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Panel2: TPanel;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Timer1: TTimer;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Edit9: TEdit;
Label16: TLabel;
Edit13: TEdit;
Label18: TLabel;
Edit14: TEdit;
Label19: TLabel;
Label20: TLabel;
Edit15: TEdit;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
FileListBox1: TFileListBox;
procedure FileListBox1Change(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
Procedure Cal;
procedure Calcw;
procedure Calsd;
procedure Edit12Change(Sender: TObject);
procedure Edit13Change(Sender: TObject);
procedure Edit10Change(Sender: TObject);
private
{ Private declarations }
public
Stime:integer;
Znumber:integer;
Ynumber:integer;
Cnumber:integer;
Snumber:integer;
s:string;
end;
var
main: Tmain;
implementation
{$R *.DFM}
procedure Tmain.Calcw;
Var
i,len:Integer;
ss1,ss2,ss11,ss22:char;
s1,s2,Sc:string;
begin
Cnumber:=0;
if (length(Edit1.text) > 0) and (length(label1.caption) > 0) then
begin
s1:=Edit1.text;
s2:=label1.caption;
len:= length(Edit1.text);
Label22.caption:=copy(s2,1,len);
i:=1;
Sc:='';
while i<= len do
begin
ss1:=s1[i];
ss2:=s2[i];
if ord(ss2) > 128 then
begin
i:=i+1;
ss11:=s1[i];
ss22:=s2[i];
if (ss1<>ss2) or (ss11 <> ss22) then
begin
Cnumber:=Cnumber+1;
Sc:=Sc+' ';
end else
begin
Sc:=Sc+copy(s2,i-1,2);
end;
end else
begin
if (ss1<>ss2) then
begin
Cnumber:=Cnumber+1;
Sc:=Sc+' ';
end else
begin
Sc:=Sc+copy(s2,i,1);
end;
end;
i:=i+1;
end;
Label22.caption:=Sc;
end;
s1:='';
Sc:='';
if (length(Edit2.text) > 0) and (length(label2.caption) > 0) then
begin
s1:=Edit2.text;
s2:=label2.caption;
len:= length(Edit2.text);
Label23.caption:=copy(s2,1,len);
i:=1;
while i<= len do
begin
ss1:=s1[i];
ss2:=s2[i];
if ord(ss2) > 128 then
begin
i:=i+1;
ss11:=s1[i];
ss22:=s2[i];
if (ss1<>ss2) or (ss11 <> ss22) then
begin
Cnumber:=Cnumber+1;
Sc:=Sc+' ';
end else
begin
Sc:=Sc+copy(s2,i-1,2);
end;
end else
begin
if (ss1<>ss2) then
begin
Cnumber:=Cnumber+1;
Sc:=Sc+' ';
end else
begin
Sc:=Sc+copy(s2,i,1);
end;
end;
i:=i+1;
end;
Label23.caption:=Sc;
end;
Sc:='';
s1:='';
if (length(Edit3.text) > 0) and (length(label3.caption) > 0) then
begin
s1:=Edit3.text;
s2:=label3.caption;
len:= length(Edit3.text);
Label24.caption:=copy(s2,1,len);
i:=1;
while i<=