Ich würde gerne mitzählen, wie oft Form1 geöffnet wurde!

[lbccaleb]

Plazierst auf deiner Form ein Label!

Dann kannst du mit

Delphi-Quellcode:

Label1.Caption := IntToStr(FormShowCount);

dem Label die Variable zuweisen! IntToStr konvertiert eine Integer variable zu einer String variable!

[bernau]

Zitat:

Zitat von Roachford

Delphi-Quellcode:

  TForm1 = class(TForm)
  private
    class var FormShowCount: integer;
    
    var  
  ...
  end;

Huch. Das kannte ich auch noch nicht.


Jetzt aber das peinliche :oops:
Das wollte ich mir jetzt noch mal genauer ansehen und habe nach "class var" gesucht. Im Suchbegriff die Anführungsstriche mit eingegeben. Dachte daß nach genau dieser Schreibweise gesucht wird. Aber neeee. In den Beiträgen kommt zwar class und var vor. Aber irgendwo im Beitrag verstreut und nicht die genaue Schreibweise mit dem Leerzeichen dazwischen. Wie kann ich denn in der DP danach suchen? :gruebel:

[mkinzler]

Eine Klassenvariable ist eine Variable die pro Klasse gilt, nicht pro Instanz. D.H. sie hat in allen Instanzen den selben Wert

[edit=Phoenix]Beitrag wurde irgendwie nicht dargestellt. Mal kurz editiert damit's klappt. Mfg, Phoenix[/edit]

[Deep-Sea]

Zitat:

Zitat von rollstuhlfahrer

EDIT: Was sollen diese Zeilen denn?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
  if ProgressBar1.Position < 1 then
    Close; 
end;

Entweder ProgressBar1.Min ist weit unter 0 oder dein Programm wird beim ersten Aufruf beendet. Dafür kannst du auch gleich Close nehmen.

Die ProgressBar läuft von 60 rückwärts und sobald sie 0 erreicht, wird die Form geschlossen :wink: (Warum weiß ich auch net ^^)

[Angel4585]

Zitat:

Zitat von mkinzler

Eine Klassenvariable ist eine Variable die pro Klasse gilt, nicht pro Instanz. D.H. sie hat in allen Instanzen den selben Wert

Irgendwie wird das nicht dargestellt :gruebel:

[Jeff93]

Bei mir auch nicht, und ich kann kein Bild im Format *.bmp anhängen.

@topic : Muss eine Instanz der Klasse bestehen um die Klassenvariable zu initialisieren oder ist es so wie mit Klassenprozeduren

Delphi-Quellcode:

TKlasse = class
private
  //Edit: Fehler sry
  class function XY : boolean;
end;

?

Gruss, Jeff93

[mkinzler]

Zitat:

Zitat von Angel4585

Zitat:

Zitat von mkinzler

Eine Klassenvariable ist eine Variable die pro Klasse gilt, nicht pro Instanz. D.H. sie hat in allen Instanzen den selben Wert

Irgendwie wird das nicht dargestellt :gruebel:

Wieder mal ein Cache-Problem :(

[Deep-Sea]

Zitat:

Zitat von Jeff93

@topic : Muss eine Instanz der Klasse bestehen um die Klassenvariable zu initialisieren oder ist es so wie mit Klassenprozeduren

Delphi-Quellcode:

TKlasse = class
private
  //Edit: Fehler sry
  class function XY : boolean;
end;

?

Gruss, Jeff93

Nein, es muss natürlich keine Instanz existieren. Es ist wie mit Klassenprozeduren :wink:

[Phoenix]

Zitat:

Zitat von Angel4585

Zitat:

Zitat von mkinzler

Eine Klassenvariable ist eine Variable die pro Klasse gilt, nicht pro Instanz. D.H. sie hat in allen Instanzen den selben Wert

Irgendwie wird das nicht dargestellt :gruebel:

Da hat Gérome wohl wieder an einem Kabel genagt...

[Jeff93]

Zitat:

Zitat von Deep-Sea

Nein, es muss natürlich keine Instanz existieren. Es ist wie mit Klassenprozeduren :wink:

Danke, für die schnelle Antwort :mrgreen: