|
unit unitprova; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons; type { TForm1 } TForm1 = class(TForm) BitBtn1: TBitBtn; LabeledEdit1: TLabeledEdit; LabeledEdit2: TLabeledEdit; procedure BitBtn1Click(Sender: TObject); private { private declarations } public { public declarations } end; function MorseControl(s:string):boolean; external 'mrs.dll'; function MorseCifrator(s:string):string; external 'mrs.dll'; var Form1: TForm1; implementation { TForm1 } procedure TForm1.BitBtn1Click(Sender: TObject); begin if not(MorseControl(LabeledEdit1.Text)) then ShowMessage('Errore: uno o più caratteri non ammessi!') else LabeledEdit2.Text:= MorseCifrator(LabeledEdit1.Text); end; initialization {$I unitprova.lrs} end.
|
|
