InputBox

[florian03634]

Hallo Leute
ich hätte da mal ne frage und zwar ich habe eine InputBox wo ich ein datum eingebe und mir dann wenn ich auf ok klicke ausgerechnet wird wie alt man ist, macht man dies nicht und gibt irgend etwas anderes ein kommt eine fehlermeldung, soweit sogut.
diese fehlermeldung kommt aber auch wenn ich auf abbrechen klicke, aber dies soll nicht passieren.
wenn ich auf abbrechen klicke soll nichts passieren.

ich hoffe ihr könnt mir helfen.
hier ein auszug aus meinem quelltext

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  input: string;
  MyDateTime: TDateTime;
  Ageindays: double;
begin
  Try
    input := InputBox('Geburtsdatum', 'Geben sie ihr Geburtsdatum ein!', 'Hier eingeben');
    MyDateTime :=  StrToDateTime (input);
    Ageindays := Date - MyDateTime;
    ShowMessage('Du bist heute '+FloatToStr(Ageindays) + 'Tag(e) alt.');
  except
    showmessage ('Fehler: Bitte nur ein korrektes Datum eingeben. (z.B. 26.08.2001)');
  end;
 
end;
 
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: char);
begin
  if (Key in [#13]) then
  begin
    Beep; // Signalton ausgeben
    Key := #0; // Eingabe verwerfen
end;
 
end;
 
end.

[m.fuchs]

Die passenden Änderungen und ein paar Anmerkungen:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  (* Variablennamen nach CodingStyle formatiert *)
  Input: String;
  MyDateTime: TDateTime;
  (* Für AgeInDays ist eine Ganzzahl günstiger. *)
  AgeInDays: Integer;
begin
  try
    Input := InputBox('Geburtsdatum', 'Geben Sie ihr Geburtsdatum ein!', 'Hier eingeben');
    (* Wenn auf Abbrechen geklickt wird, gibt InputBox den Default-Wert zurück. *)
    if not(Input = 'Hier eingeben') then begin
      MyDateTime := StrToDateTime(Input);
      (* DaysBetween liefert dir die Anzahl der Tage zwischen zwei Daten.
         Dazu muss die Unit 'DateUtils' eingebunden werden. *)
      Ageindays := DaysBetween(MyDateTime, Now);
      ShowMessage('Du bist heute ' + IntToStr(AgeInDays) + ' Tag(e) alt.');
    end;
  except
    ShowMessage ('Fehler: Bitte nur ein korrektes Datum eingeben. (z.B. 26.08.2001)');
  end;
end;

[florian03634]

danke für deine hilfe

jetzt bekomme ich diese meldung: frmmain.pas(121,31) Error: Identifier not found "DaysBetween"

[m.fuchs]

Dann lies bitte noch einmal aufmerksam die Kommentare die ich hinzugefügt habe. Da steckt noch ein Hinweis drin was du tun musst.

[florian03634]

könntest du mir da nochmal helfen bin ein kompletter lazarus anfänger

[MAC]

könntest du mir da nochmal helfen bin ein kompletter lazarus anfänger

Wenn du mal folgendes googelst "Delphi Unit einbinden" findest du ein Eintrag unter Delphi-Treff.de, wie man Units einbinden. Das ist ziemlich einfach...

[florian03634]

oki danke werd ich gleich morgen ausprobieren

[florian03634]

hi leute ich habs hinbekommen das wenn man auf abbrechen geht nix passiert ich danke euch
jetzt passiert aber auch nix wenn ich irgendwelchen quatsch eingebe(text) und auf ok klicke aber wenn ich dies tue soll ja ne fehlermeldung kommen

[m.fuchs]

hi leute ich habs hinbekommen das wenn man auf abbrechen geht nix passiert ich danke euch
jetzt passiert aber auch nix wenn ich irgendwelchen quatsch eingebe(text) und auf ok klicke aber wenn ich dies tue soll ja ne fehlermeldung kommen

Hm, bei dem von mir oben veröffentlichten Quellcode funktioniert auch die Fehlermeldung. Es sei denn der eingegeben Text lautet "Hier eingeben".

[florian03634]

so leute rätsel gelöst war meine schuld es kommt nur keine meldung wenn des was am anfang drinne steht halt drinne steht un man auf ok klickt sry
trotzdem danke für eure hilfe

Flo

[florian03634]

m.fuchs genau das war mein fehler ich hab gedacht wo ich "hier eingeben" drinn stehen hatte das es bei text nicht geht