Einen gecasteten String mit Zeichen auffüllen in einer SQL Anweisung

[RWarnecke]

Hallo zusammen,

in einem Programm von einem Kunden benutze ich DB-Komponenten. Genauer gesagt habe ich das Problem bei einer TAdvDBLookupCombobox. Hier wird für die Listsource eine Query ausgeführt und der Inhalt als Auswahl in der TAdvDBLookupCombobox angezeigt. Das funktioniert auch soweit sehr gut. Jetzt zum eigentlichen Problem, ich habe in der Query ein Integer-Feld welches ich mit dem Befehl cast zu einem String mache.

Code:

  cast(facility.AiCode as String)

Bisher wurden immer nur 4-stellige Zahlen in der Spalte eingetragen. Nun sollen in der gleichen Spalte auch 1 - 3 stellige Zahlen stehen können und diese sollen dann entsprechend vorne mit Nullen aufgefüllt werden, wenn die Query für die Listsource in der TAdvDBLookupCombobox ausgeführt wird. Ein Beispiel, wenn in der DB-Tabelle eine 5 steht, dann soll bei dem obenstehenden CAST-Befehl 0005 herauskommen.

Gibt es hier einen SQL-Befehl, der mir so eine Ausgabe ermöglicht oder muss ich die Komponente TAdvDBLookupCombobox durch eine normale Combobox ersetzen und die Formatierung der Zahl im Quelltext vornehmen ?