Rückgabewert könnte undefiniert sein !

[Dannyboy]

Einfach mal initialisieren:

Delphi-Quellcode:

function Holedaten(s:string):TDatetime; 
    var 
      a:string; 
    begin 
        result:= now; //hier wird initialiseirt. Ich übernehme diese Zeile aus Deinem Bsp. 
        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;