clipBformunit.pas

unit clipBformunit;

interface

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

type
  TclipbForm = class(TForm)
    clipBmemo: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    loadDialog: TOpenDialog;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  clipbForm: TclipbForm;

implementation

{$R *.DFM}

procedure TclipbForm.FormShow(Sender: TObject);
var
 x:word;
begin
 If LoadDialog.Execute Then
 Begin
  ClipBForm.ClipBMemo.Lines.LoadFromFile(LoadDialog.filename);
  // Auf maximal 100 Zeilen kürzen
  If ClipBForm.ClipBMemo.Lines.Count>100 then
   For x:=100 to ClipBForm.ClipBMemo.Lines.Count
    do ClipBForm.ClipBMemo.Lines.Delete(100);
 End
  else modalresult:=mrNo;
end;

procedure TclipbForm.BitBtn3Click(Sender: TObject);
begin
 modalresult:=mrNo;
end;

procedure TclipbForm.BitBtn2Click(Sender: TObject);
begin
 modalresult:=mrYes;
end;

end.