ich habe eine Funktion für eine Eingabeergänzung geschrieben, welche auch an sich funktioniert. Ursprünglich wurde diese für TDBEdit-Komponenten geschrieben. Die Edit-Komponente wird mit übergeben, da ich die Selektion entsprechend setzen muss. Der Aufruf erfolgt wie folgt:
Code: Alles auswählen
procedure Eingabeergaenzung(var Edit: TDBEdit; aFeld: string; aTrenner: string = '');
Ich hätte jetzt als Idee gehabt, ich schreibe eine Procedure mit TEdit, erzeuge in dieser einer TDBEdit-Komponente, übernehme die relevanten Informationen, rufe die o.g. Prozedur auf und danach übernehme ich die Werte zurück. Aber gibt es vielleicht auch eine elegantere Lösung?
Vielen Dank.
cu tb