Variabler Datenbank-Zugriff - Problem mit Stringumwandlung

[hberdel]

Hallo alle, schön, dass ihr mir helfen wollt . . .
Natürlich ist das eine TQuery mit Namen "QueryPreise" und wie schon vorher zitiert können die Werte der Datenfelder mit QueryPreisexxx.Value ausgelesen bzw. gespeichert werden.

QueryPreise und QueryPreiseNeu besitzen 9 Datenfelder, die ich nach Vorschlag von hoika alle doppeln müsste. Da wäre es einfacher, meine vorhandene Struktur zu verzweigen . . .

Zum Verständnis: Ich benötige die Preise 2009 nächstes Jahr nicht mehr. Aber in 2009 mache ich sowohl noch Mietverträge für 2009 als auch schon für 2010. In 2010 übernehme ich die Daten von 'QueryPreiseNeu' in 'QueryPreise' und kann dann in 3-4 Jahren problemlos wieder eine Preiserhöhung mit 'QueryPreiseNeu' machen, wenn nötig.

DeddyH : Ich habe deine Code-Zeile kopiert und somit ohne Änderung in meinen Quellcode eingefügt.

begin
Preis1 := (FData.FindComponent(PrsAltNeu + 'SsNeben') as TQuery).Value;
case AnzPers of
3 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value;
4 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value') * 2;
5 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value') * 3;
6 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value') * 4;
7 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value') * 5;
8 : Zuschlag1 := FData.QueryPreiseNeuZuNeben.Value') * 6;
end;

Wenn's zu viel Mühe macht, habe ich auch eine andere Lösung, wie schon erwähnt, aber der Ehrgeiz . . . das müsste doch funzen - oder?