Rückgabewert könnte undefiniert sein !

[himitsu]

Delphi-Quellcode:

function Holedaten(s:string):TDatetime;
    var
      a:string;
    begin
        a:= Stringreplace(stringreplace(s,'.','0',[rfReplaceAll]),' ','0',
                          [rfReplaceAll]);
        if strtoInt(a) <> 0 then
           result:=(strtoDate(s))
        else
           begin
             showmessage('Es müssen beide Felder ausgefüllt werden!');
             result :=now;
           end;
    end;

was gefällt dir denn daran nicht?

das ist die wohl Beste Möglichkeit.

Es geht natürlich auch so:

Delphi-Quellcode:

function Holedaten(s:string):TDatetime;
    var
      a:string;
    begin
        result :=now;
        a:= Stringreplace(stringreplace(s,'.','0',[rfReplaceAll]),' ','0',
                          [rfReplaceAll]);
        if strtoInt(a) <> 0 then
           result:=(strtoDate(s))
        else
          showmessage('Es müssen beide Felder ausgefüllt werden!');
    end;

wobei es so auch ganz nett ist ^^

Delphi-Quellcode:

function Holedaten(s:string):TDatetime;
    begin
      if strtoInt(Stringreplace(stringreplace(s,'.','0',[rfReplaceAll]),
                  ' ','0',[rfReplaceAll])) <> 0 then
         result:=(strtoDate(s))
      else
         begin
           showmessage('Es müssen beide Felder ausgefüllt werden!');
           result :=now;
         end;
    end;