ADO Strings autom. abschneiden?

[gmc616]

Hallo DP,

Gibt es im Delphi 2009 eine Option, einen Parameter o.ä. , mit dem man erreichen kann, dass zu lange Strings beim INSERT oder UPDATE in ein VARCHAR-Feld auf die maximale Länge des Feldes abschnitten werden?

z.B. "Tabelle" mit dem Feld "text" VARCHAR(2)

Delphi-Quellcode:

sSql :=  'INSERT INTO Tabelle (text) VALUES (:DerString)';
AdoQuery.SQL.Text := sSql;
AdoQuery.Parameters.ParamByName('DerString').Value = 'ABC';
AdoQuery.Parameters.ParamByName('DerString').DataType := ftString;
AdoQuery.Exceute;

... soll, anstatt den Datensatz nicht zu speichern, entsprechend 'AB' in "text" speichern. Das ganze automatisch, ohne das ich per Hand die Feldlänge ermitteln und den String zurecht schneiden muß.