products/Sources/formale Sprachen/Delphi/Agenda 1.1/Sources/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: README.md   Sprache: Unknown

Spracherkennung für: .~pas vermutete Sprache: Shell {Shell[60] Isabelle[75] Cobol[115]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

unit reSounds;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, SysUtils, jpeg, OleServer, ActnList;

type
  TSoundsBox = class(TForm)
    OKButton: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CancelButton: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
  private
    { Private declarations }
     Edit1S: String;
    Edit2S: String;
    Edit3S: String;
    Edit4S: String;
 public
    { Public declarations }
  end;

var
  SoundsBox: TSoundsBox;

implementation

uses remain, Dialogs;

{$R *.dfm}

procedure TSoundsBox.FormCreate(Sender: TObject);
var
  MS: TMemoryStatus;
begin
  GlobalMemoryStatus(MS);
end;



procedure TSoundsBox.Button1Click(Sender: TObject);
begin
  if MainForm1.OpenDialog.execute then begin
     edit1s := edit1.Text;
     edit1.Text := MainForm1.OpenDialog.FileName;
     edit1.Text := StringReplace(edit1.Text,HomeDir, '',[rfReplaceAll ])
   end;

end;

procedure TSoundsBox.Button2Click(Sender: TObject);
begin
  if MainForm1.OpenDialog.execute then begin
     edit2.Text := MainForm1.OpenDialog.FileName;
     edit2.Text := StringReplace(edit2.Text,HomeDir, '',[rfReplaceAll ])
   end;

end;

procedure TSoundsBox.Button3Click(Sender: TObject);
begin
  if MainForm1.OpenDialog.execute then begin
     edit3.Text := MainForm1.OpenDialog.FileName;
     edit3.Text := StringReplace(edit3.Text,HomeDir, '',[rfReplaceAll ])
   end;

end;

procedure TSoundsBox.Button4Click(Sender: TObject);
begin
  if MainForm1.OpenDialog.execute then begin
     edit4.Text := MainForm1.OpenDialog.FileName;
     edit4.Text := StringReplace(edit4.Text,HomeDir, '',[rfReplaceAll ])
   end;

end;

procedure TSoundsBox.FormShow(Sender: TObject);
begin
  edit1s := edit1.Text;
  edit2s := edit2.Text;
  edit3s := edit3.Text;
  edit4s := edit4.Text;
end;

procedure TSoundsBox.CancelButtonClick(Sender: TObject);
begin
  edit1.Text := edit1s;
  edit2.Text := edit2s;
  edit3.Text := edit3s;
  edit4.Text := edit4s;
  SoundsBox.Close;
end;

end.

[ Dauer der Verarbeitung: 0.79 Sekunden  ]