: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

[Luckie]

Bevor wir hier weiter machen, gebe bitte deinem Thread einen aussagekräftigen Titel. Der Zeichensalat ist klein aussagekräftiger Titel. Editiere dazu deinen ersten Beitrag und Klicke auf "Erweitert" dann kannst du den Titel ändern.

[himitsu]

Dann könnte man auch mal das [DELPHI]...[/DELPHI] und [QUOTE]...[/QUOTE] verwenden
und die Leerzeilen zwischen den Fehlermeldungen sind ebenfalls nicht von Nöten.

PS: Mit einer halbwegs ordentlichen Codeformatierung würde dir der Fehler (ein

Delphi-Quellcode:

end

zuviel) sofort selber auffallen.

Tipp: Man gehe zum ersten Fehler bzw. zur ersten Warnung, und schaue an der Stelle ob/was dort falsch ist und wenn es OK aussieht, dann gehe man solange zurück, bis man den Fehler findet.
Alle Folgefehler kann man erstmal ignorieren.

[wicht]

Und vielleicht auch ein paar Zeilen einrücken :stupid:

[Sir Rufo]

Und die Delphi Tags darf man auch ruhig benutzen (das Helm-Symbol)

Und ein kleiner Tipp:

Formatiere deinen Quelltext mal anständig, dann springt dich der Fehler auch schon an.

[Alaitoc]

Ja bitte ändere deinen Titel ab,
jede Vermutung von dir was als Titel sinnvoll wäre ist besser als ":s".

Zweitens solltest du dir einfach mal ein wenig mehr Mühe bei deinen Beiträgen geben,
dann wird dir auch schneller geholfen.

Drittens solltest du einfach mal überprüfen wie oft du begin und end nutzt,
die sollten sich schon irgendwie ausgleichen.

Kein Anfang ohne ein Ende und kein Ende ohne einen Anfang, sozusagen.

Edith sagt, Formatieren bzw. Einrücken wie Sir Rufo sagt, hilft wirklich ;)

MfG Alaitoc

[Jens01]

Hallo Fritz,
cool ist es, wenn im Titel schon ungefähr steht, was Du an Fragen in Thread stellt.
Dann kann man hier den Code hier so einfügen, dass er schon vom einem Delphi-Editor angezeigt wird.
Zu Deinem Code:
Du solltest Dir diesen Link angucken : http://www.delphi-treff.de/object-pa...hi-styleguide/ Wenn der Code übersichtlicher aufbereitet ist, dann findest Du die Fehler schneller, denn eigentlich sind sie doch selbsterklärend.
Gruss Jens

[edit] booh, als ich anfing zu schreiben, gabs noch keinen Beitrag.

[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 ;

[Medium]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  freq, dur: Integer;
begin
  if (edit1.text='') or (edit2.text='') then 
  begin
    // foo man chou
  end;
end
else 
begin
  freq := strtoint(edit1.Text);
  dur := strtoint(edit2.Text);
  windows.beep(freq,dur);
end;

SO sieht das "formatiert" aus. Immer noch komisch, aber wenigstens Style-Guide-Komisch.

[Phoenix]

Hallo Fritz.

Du wurdest schon mehrfach von Usern dieses Forums UND Moderatoren darauf hingewiesen, dass Du Deinen Threads aussagekräftige Titel geben sollst und den Code in Deinen Beiträgen formatieren sollst.

Du hättest gerne, dass wir Dir helfen. Das tu wir gerne, solange Du auch uns dabei hilfst - mit einem Titel der jemanden in dem Themengebiet auch sagt 'Hier gibts ne Frage zu nem Thema in dem ich mich auskenne', mit formatiertem Quellcode der demjenigen der Dir helfen möchte das Lesen einfach macht und mit einer Einstellung die zeigt, dass Du Dich als Mitglied der DP auch an die DP Regeln hältst.

Also ändere bitte den Titel dieses Threads und achte auch in Zukunft auf ordentliche Titel und Formatierungen. Danke.