home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / FC_WIN / FC_WAHL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-11-23  |  2.4 KB  |  104 lines
  1. unit Fc_wahl;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  7.   StdCtrls, ExtCtrls, SysUtils, Dialogs, Fc_form;
  8.  
  9. type
  10.   TFC_Dateiauswahl = class(TForm)
  11.     OKBtn: TBitBtn;
  12.     CancelBtn: TBitBtn;
  13.     Bevel1: TBevel;
  14.     Edit1: TEdit;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Edit2: TEdit;
  20.     OpenDialog: TOpenDialog;
  21.     procedure CancelBtnClick(Sender: TObject);
  22.     procedure OKBtnClick(Sender: TObject);
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.   public
  26.     procedure SetFileName(const Name:string);
  27.   end;
  28.  
  29. var
  30.   FC_Dateiauswahl: TFC_Dateiauswahl;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36.  
  37. procedure TFC_Dateiauswahl.CancelBtnClick(Sender: TObject);
  38. begin
  39.   Close;
  40. end;
  41.  
  42.  
  43. procedure TFC_Dateiauswahl.OKBtnClick(Sender: TObject);
  44. begin
  45.   if not FileExists(Edit1.Text) then begin
  46.     Edit1.SetFocus;
  47.     Exit;
  48.   end;
  49.   if not FileExists(Edit2.Text) then begin
  50.     Edit2.SetFocus;
  51.     Exit;
  52.   end;
  53.   Hide;
  54.   Dateivergleich.Dateien_vergleichen(Edit1.Text,Edit2.Text);
  55.   Dateivergleich.ShowModal;
  56.   Close;
  57. end;
  58.  
  59.  
  60. procedure TFC_Dateiauswahl.Button1Click(Sender: TObject);
  61. var
  62.   ext: string[4];
  63. begin
  64.   if OpenDialog.Execute then begin
  65.     Edit1.Text := LowerCase(OpenDialog.FileName);
  66.     if Edit2.Text='' then begin
  67.       if FileExists(ChangeFileExt(Edit1.Text,'.bak')) then
  68.         Edit2.Text := ChangeFileExt(Edit1.Text,'.bak')
  69.       else begin
  70.         ext := ExtractFileExt(Edit1.Text);
  71.         Insert ('~',ext,2);
  72.         if FileExists(ChangeFileExt(Edit1.Text,ext)) then
  73.           Edit2.Text := ChangeFileExt(Edit1.Text,ext);
  74.       end;
  75.     end;
  76.   end;
  77. end;
  78.  
  79.  
  80. procedure TFC_Dateiauswahl.Button2Click(Sender: TObject);
  81. begin
  82.   if OpenDialog.Execute then
  83.     Edit2.Text := LowerCase(OpenDialog.FileName);
  84. end;
  85.  
  86.  
  87. procedure TFC_Dateiauswahl.SetFileName(const Name:string);
  88. var
  89.   ext: string[4];
  90. begin
  91.   if FileExists(Name) then begin
  92.     Edit1.Text := LowerCase(Name);
  93.     ext := ExtractFileExt(Edit1.Text);
  94.     Insert ('~',ext,2);
  95.     if FileExists(ChangeFileExt(Edit1.Text,ext)) then
  96.       Edit2.Text := ChangeFileExt(Edit1.Text,ext)
  97.     else if (ExtractFileExt(Edit1.Text)<>'.bak')
  98.             and FileExists(ChangeFileExt(Edit1.Text,'.bak')) then
  99.       Edit2.Text := ChangeFileExt(Edit1.Text,'.bak');
  100.   end;
  101. end;
  102.  
  103. end.
  104.