Zitat:
...zum Thema "globale Variablen vermeiden": gibts denn in Object Pascal lokale Variablen mit globaler Lebensdauer? (C/C++ Stichwort "static")
mfg
Ich habe damasl diese Frage auf meine Festplatte geschpeichert, wollte es später auch beantworten. Da ich erst jetzt diese Frage wieder gefunden habe, hier ein Antwort: Ja.
Und zwar so(Delphi 6):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
{$IFOPT J-}
{$DEFINE restore_me}
{$ENDIF}
{$IF DEFINED (restore_me)}
{$J+}
{$IFEND}
const D:Integer = 0;
{$IF DEFINED (restore_me)}
{$J-}
{$UNDEF restore_me}
{$IFEND}
begin
Inc(D);
Caption := IntToStr(D);
end;
Für weitere Erklärungen, siehe
OH.