:S

[Fritz7796]

Es handelt sich um eine anwendung mit zwei eingabe feldern (tonfrequenz und länge) und einen start button ich bin total neu und weis auch nicht was die fehlermeldungen bedeuten... bitte helft mir das programm auf die beine zu stellen:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var freq,dur: integer;
begin
if (edit1.text='') or (edit2.text='')
then begin

end;
end
else begin
freq := strtoint(edit1.Text);
dur := strtoint(edit2.Text);
windows.beep(freq,dur);
end ;

end.

Fehler:

Zitat:

[Hinweis] Unit1.pas(29): Variable 'freq' wurde deklariert aber in 'TForm1.Button1Click' nicht verwendet

[Hinweis] Unit1.pas(29): Variable 'dur' wurde deklariert aber in 'TForm1.Button1Click' nicht verwendet

[Fehler] Unit1.pas(36): ';' erwartet, aber 'ELSE' gefunden

[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'freq'

[Fehler] Unit1.pas(38): Undefinierter Bezeichner: 'edit1'

[Fehler] Unit1.pas(39): Operator oder Semikolon fehlt

[Fehler] Unit1.pas(39): Undefinierter Bezeichner: 'edit2'

[Fehler] Unit1.pas(40): Operator oder Semikolon fehlt

[Fehler] Unit1.pas(42): '.' erwartet, aber ';' gefunden

[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden