Datenquelle an eine Funktion übergeben

[mirage228]

Hi,

übergib der Funktion doch einfach "qrFPOS.FieldValues[feld])" in den Feld Parameter und dann sieht die Funktion so aus:

Delphi-Quellcode:

function Tmainform.GetQrDate(Feld: TDateTime): string; 
begin 
  try 
    result := FormatDateTime('yyyy-mm-dd', Feld); 
  except 
    result:='0000-00-00'; 
  end; 
end;

mfG
mirage228