alten Wert im TEdit-Feld anzeigen

[Q-Dog]

Hallo,

ich hab die Forensuche schon benutzt, aber leider nichts gefunden.

Ich zergrübel mir grad den Kopf über ein scheinbar einfaches Problem, komm aber absolut nicht auf die Lösung.

Also, ich möchte ganz einfach den alten Wert (der Zwischendurch auf '1' geändert wird) im Edit-Feld anzeigen lassen.

Delphi-Quellcode:

var AktText: string;
begin
if Gebaeude.ItemIndex = 0 then
  begin
    AktText := HHStufe.Text; // der erfolglose Versuch das Problem zu lösen
    HHStufe.Text := '1';
    HHStufe.Visible := false;
  end
else
  begin
    HHStufe.Text := AktText;
    HHStufe.Visible := true;
  end;
end;

Es geht um eine Combobox.
Das Edit-Feld soll den Wert von der Variable AktText haben, es sei denn Gebaeude.ItemIndex = 0, dann soll das Edit-Feld den Wert 1 haben.
Wenn ich jetzt zum nächsten Item runterscrolle ist aber immernoch der Wert 1 da, anstatt der Wert davor.

Beispiel.
HHStufe.Text ist '5'
Gebaeude.ItemIndex = 0 wird ausgewählt
HHStufe.Text ist dann '1'
Gebaeude.ItemIndex = 1 wird nun ausgewählt
HHStufe.Text ist immernoch '1', soll aber wieder '5' sein.


Klingt einfach, ich komm aber einfach nicht drauf



Mfg Q-Dog