TDateTime für MySQL-INSERT formatieren

[Angel4585]

Das ganze sieht etwa so aus:

Delphi-Quellcode:

procedure SetStatement;

  procedure DoAdd;
  begin
  //Hier kann ich nicht darauf zugreifen
  end;
begin

with TZQuery.Create(nil) do
  try
    Connection := ZConnection;
    sql.Text:=DoAdd;
  finally
    Free;
    end;
end;

nicht unbedingt sauber aber da ich in der Ausbildung bin sind solche Dinge ein gute Übung.