Variable behält keinen Wert

[Luciano]

Hi...

kleines Problem mit folgendem Quelltext

Delphi-Quellcode:

procedure TFakt.PageControl1Change(Sender: TObject);
var
api1 : string;
begin

  if PageControl1.ActivePageIndex = 0 then
    begin
      // Hier sind SQL-Anfrage und und und...
      // Es wird nicht aus der  Prozedur gesprungen!
      
      if api1 = '1' then
        begin
          //mach was
        end;
 
      api1 := '0';
    end;


  if PageControl1.ActivePageIndex = 1 then
    begin
      // Hier sind SQL-Anfrage und und und...
      // Es wird nicht aus der  Prozedur gesprungen!
      
      api1 := '1';   
    end;
end;

Wenn z.B. ActivePageIndex = 0 dann sollte api1 = 0 sein und beim nächsten durchlauf, wenn ActivePageIndex = 1 ist dann api1 = 1 noch ein durchlauf, dann sollte die if Anweisung bei ActivePageIndex = 0 ausgeführt werden weil api1 noch = 1 ist. Nur bei jedem Aufruf der Prozedur ist der Wert in api1 leer. Warum

Wenn ich api1 als integer declariere dann überspringt mir Delphi beim debuggen die Zeile komplett und sie wird nicht ausgeführt sondern zur nächsten Zeile gesprungen

Ich verstehe das nicht!

Vielleicht hat von euch einer eine Erklärung. Danke schon mal im vorraus

Greets

Luciano

[Jens Schumann]

Hallo,
da es sich bei api1 um eine lokale Varible handelt kann es nicht funktionieren.
Du muss aus api1 ein Objektfeld machen.

[neolithos]

apil wurde doch lokal Definiert und behält somit seine Gültigkeit und Wert nur innerhalb dieser Procedure und während eines durchlaufes.

Kurz:

Bei Begin wird apil angelegt.
Bei End; wird apil freigegeben.

[Luciano]

Danke euch beiden!

Mehr kann ich dazu nicht sagen, vielleicht sollte ich doch mal ein wenig überlegen bevor ich hier etwas poste!

Greets

Luciano