Hallo Delphi-Gemeinde.
Ich habe mir eine Funktionen programmiert, an welche ich einen Feldnamen übergebe.
Diese Funktion liest dann aus einer Datenquelle (ApolloTable, BDETable etc. den Wert des Feldes aus und Gibt mir diesen zurück.
Falls jetzt die Frage kommt wieso eine extra Funktion dafür:
Die Funktion Trim't u.a. den Rückgabewert und wandelt z.B. Kommas in Punkte um. Da ich mit dieser Funktion Daten aus einer DBase-Tabelle auslese und einen INSERT-Befehl für
MySQL erzeuge.
Da ich aber Daten aus verschiedenen Quellen lesen will (ApolloTable oder ApolloQuery will ich irgendwie die Datenquelle mit an die Funktion übergeben. Da aber die Datenquelle eine ApolloTable oder
Query oder auch eine MySQLTabelle sein kann muss die Tabelle Wissen, um welchen Typ es sich handelt.
Wie kann man dies bewerkstelligen?
Hier eine der Funktionen, die einen TdateTime in einen
MySQL-DATETIME umwandel:
qrPOS wäre in diesem Fall eine TApolloQuery
Delphi-Quellcode:
function Tmainform.GetQrDate(feld: string): string;
begin
try
result := FormatDateTime('yyyy-mm-dd',qrFPOS.FieldValues[feld]);
except
result:='0000-00-00';
end;
end;
Ich wäre jede Hilfe dankbar.
MfG, Ronny