[Delphi] brauche dringend hilfe finde einen finde einen fehler nicht

W-Playaz · 3. Juni 2007

brauche dringend hilfe finde einen finde einen fehler nicht

hallo !
ich muss eine berichtigung für eine delphi arbeit machen.
ich hab soweit alles berichtigt nur es kommt immer ein fehler, wo ich cniht weiß was ich ändern soll.
wäre nett wen mir jemand helfen könnte.

hier der komplette quelltext:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure eingabe(var tag,monat,jahr:integer);
var
code:integer;
begin
val(form1.edit1.text,tag,code);
val(form1.edit2.text,monat,code);
val(form1.edit3.text,jahr,code);
if (jahr<=1700) and (jahr>=2100)
then
showmessage('Fehler');
end;

function berechnung(tag,monat,jahr:integer):integer;
var
hilfe,n,k,monat1,jahr1:integer;
begin
k:=0;
jahr1:=jahr;
monat1:=monat;
if jahr<1900 then
k:=1;
if (jahr=1900) and (monat<3) then
k:=1;
if jahr<1800 then
k:=2;
if (jahr=1800) and (monat<3) then
k:=2;
if monat>2 then
monat1:=monat+1
else
begin
monat1:=monat+13;
jahr1:=jahr-1;
end;
n:=36525*jahr1 div 100 +306*monat1 div 10 + tag - 621049 + k;
hilfe:=n div 7;
n:=n-trunc(n);
end;

procedure eingabe2(wt:integer);
begin
if wt=0 then
form1.label1.caption:='Sonntag';
if wt=1 then
form1.label1.caption:='Montag';
if wt=2 then
form1.label1.caption:='Dienstag';
if wt=3 then
form1.label1.caption:='Mittwoch';
if wt=4 then
form1.label1.caption:='Donnerstag';
if wt=5 then
form1.label1.caption:='Freitag';
if wt=6 then
form1.label1.caption:='Samstag';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
tag,monat,jahr,wt:integer;
begin
eingabe(tag,monat,jahr);
wt:=berechnung(tag,monat,jahr);
ausgabe(wt);
end;

end.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anzeige

Smokers · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

Es wäre sehr nett wenn du den Fehler nennst oder ihn wenigstens beschreibst bevor ich mir das überhaupt ansehe ^^

und BTW isses noch ganz gut wenn du den Queltext formatiert hochlädst.. hilft ungemein

W-Playaz · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

der fehler kommt direkt wenn man play drückt dann steht das unten....

hier ich hab das programm mal hochgeladen bei xup. programm

danke schon mal!

icq-light · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

form1.label1.caption:='Sonntag');

was soll da die Klammer-Zu?

W-Playaz · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

hab das mit den klammern jetzt berichtigt und es läuft immer noch cniht richtig.....

hab es nochmal verändert hochgeladen programm

fehler die noch erscheinen sind:

jede hilfe bekommt ne gute bw.

coach · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

du hast weder eingabe noch ausgabe bei var definiert, das verursacht den fehler, der rest is egal^^...mfg coach

-idur- · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
tag,monat,jahr,wt:integer;
begin
eingabe(tag,monat,jahr);
wt:=berechnung(tag,monat,jahr);
[B][COLOR="Red"]ausgabe(wt);[/COLOR][/B]
end;

du hast keine prozedur, die ausgabe heißt :/
ich tipp mal drauf, dass das "eingabe2(wt)" heißen muss

also:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
tag,monat,jahr,wt:integer;
begin
eingabe(tag,monat,jahr);
wt:=berechnung(tag,monat,jahr);
eingabe2(wt);
end;

W-Playaz · 3. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

ich habs soweit verbesser läuft auch alles nur der wochentag ist immer sonntag egal was ich bei tag monat und jahr eingebe.

da stimmt immer noch was nciht....... ich bin am verzweifeln

hier das neue programm klick

Niederrheiner · 4. Juni 2007

AW: brauche dringend hilfe finde einen finde einen fehler nicht

Ich hoffe mal, dass ich noch rechtzeitig da bin. Also wie wärs damit:

Code:

function berechnung(tag,monat,jahr:integer):integer;
 var hilfe,n,k,monat1,jahr1:integer;
begin
 k:=0;
 jahr1:=jahr;
 monat1:=monat;
 if jahr<1900 then
 k:=1;
 if (jahr=1900) and (monat<3) then
 k:=1;
 if jahr<1800 then
 k:=2;
 if (jahr=1800) and (monat<3) then
 k:=2;
 if monat>2 then
 monat1:=monat+1
 else
 begin
 monat1:=monat+13;
 jahr1:=jahr-1;
 end;
 n:=36525*jahr1 div 100 +306*monat1 div 10 + tag - 621049 + k;
 hilfe:=n div 7;
 n:=n-trunc(n);
 [COLOR="Red"]Result := n;[/COLOR]
end;

Dann gibt deine Funktion auch einen Wert zurück. So wie du ihn bisher hattest, hast du zwar die Berechnung durchgeführt, aber dein Ergebnis nicht zurückgeliefert.
So sollte es klappen.

Gruß

Niederrheiner

Nützliche Suchen

[Delphi] brauche dringend hilfe finde einen finde einen fehler nicht

Videos zum Themenbereich