:S

[Sir Rufo]

So schaut das formatiert aus ... Komisch gelle?

Delphi-Quellcode:

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 ;