Einzelnen Beitrag anzeigen

Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
349 Beiträge
 
Delphi XE7 Professional
 
#23

AW: [gelöst] Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 15:53
Moin,


Leg die Defintion von sl in die Typdeklaration der Form.
Delphi-Quellcode:
  TForm1 = class(TForm)
  private
    { private declarations }
   sl: TStringList;
  public
    { public declarations }
  end;
Dann ist sie in der gesamten Form sichtbar, aber vor unbeabsichtigten Änderungen von ausserhalb geschützt.

Stell Dir einfach einmal vor, was geschiet, wenn Du diese Form zweimal erstellst, oder wenn irgend ein Komponentenentwickler auf die glorreiche Idee kommt, eine globale Variable mit dem Namen "sl" anzulegen.
Und wieder was gelernt. Danke, habe das gleich umgesetzt.

Gruß Heiko
OS: Linux Mint 20 Cinnamon (64-Bit), Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC), Lazarus 2.1 (Freepascal 3.3.1),
  Mit Zitat antworten Zitat