Button Image bei Drag & Drop

[Sir Rufo]

Eine globale Variable ...

Für alle die diesen Thread lesen gilt wie immer bei globalen Variablen "Don't do that at home!"
(auf deutsch "Bitte nicht nachmachen!")

Falls die Frage aufkommt, wie es richtig geht, einfach nachfragen, wir - speziell auch ich - geben gerne Antwort.

[Sir Rufo]

Merci und danke für den Jungspund

Bei einer globalen Variablen hat sich der Ersteller zu 80% keine Gedanken zum Kontext gemacht (wozu gehört diese Variable - ach, zur Instanz) und zu 20% Faulheit, weil er keine Singleton-Klasse, bzw. Default-Klasse oder simple Funktion erstellen/erzeugen möchte.

Und aus dem Kindergarten kenne ich noch die Sprüche wie "Aber der Klaus hat auch..."

Nur weil Borland das u.a. mit dem RAD-Ansatz vormacht, muss man nicht wie die Lemminge hinterher.

Auch wenn da was in Büchern steht ... Papier ist und war schon immer geduldig.

Es zählt einfach nur ein robustes Programmdesign, das bekommt man nicht geschenkt und eine globale Variable ist nicht robust.

[Sir Rufo]

Zitat von Smut:

Hi und danke für die Antwort...

Hier nur mal mein musikalischer Geburtstagsgruß:
http://www.youtube.com/watch?v=_2BqiipGKNA
Ich steh ja soooo auf Musik... wird Dir wohl nicht gefallen... na egal.

Da muss ich dich leider enttäuschen ...

Tubular Bells I, II, III, Orchestral, Millennium sowie die BBC Aufnahme der Tubular Bells I (Video) sind seit Urzeiten ein fester Bestandteil meiner Audiothek (neben Hergest Ridge, Amarok, etc.)

Zitat von Smut:

Zu den globalen Variablen: Angenommen, ich nehme EINE Globale Variable,nenne die z.B. MasterLang und bin so in der Lage, Datenbankeingaben mehrsprachig zu gestalten, was ist daran verkehrt?

Nimm einfach eine Funktion und du kannst den Zugriff darauf besser kontrollieren (threadsafe)

Also statt

Delphi-Quellcode:

interface

var
  MasterLang : string;

einfach

Delphi-Quellcode:

interface 

function MasterLang : string;

implementation

var
  _MasterLang : string;

function MasterLang : string;
begin
  if _MasterLang = '' then
    _MasterLang := GetMasterLang;
  Result := _MasterLang;
end;

Will ich das threadsafe haben, kein Problem, einfach eine TCriticalSection rein.

Will ich das aber auch noch speichern/laden, dann kommt das in eine Klasse (z.B. TApplicationLayer) und die Klasse speichert und lädt die Einstellungen.

Der Zugriff auf diese Klasse erfolgt analog über eine Funktion.

Wie schon gesagt, es ist eigentlich nur Faulheit - die sich meistens irgendwann rächt.
Ich bin lieber am Anfang rege und lege mich später entspannt zurück (z.B. ein kleines Notfallkassensystem mit automatischem Datenaustausch an eine WaWi läuft seit ca. 8 Jahren fehlerfrei in der Version 1.0.1 - ein Ausgabe-Fehler beim Nachbon - und häufiger im Einsatz als ursprünglich geplant - wir haben doch noch eine Kasse)

Schlimm ist erst mal nix, schlimm wird es aber auch schon von alleine und man muss es nicht schon vom Design an schlimm gestalten

[DeddyH]

Ich vermute, himitsu hat das hier gemeint:

Delphi-Quellcode:

procedure TFormTest.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if (ssLeft in Shift) and (Sender is TWinControl) then
    begin
      ReleaseCapture;
      TWinControl(Sender).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    end;
end;