![]() |
Variablen-Namen abkürzen ?
Hallo,
wenn ich aus einer Klasse heraus öfters die Funktion frmmain.ZQuery.Sql.Text := 'blabla' der Hauptklasse aufrufe, muss ich das ja immer so ausführlich schreiben. Oder ich mach das natürlich mit With Do... Kann ich nicht "frmmain.ZQuery.Sql." nen zusätzlichen Namen zuweisen, so dass ich z.B. mainZQ.Text = 'fds' schreiben kann ? Danke ! |
Re: Variablen-Namen abkürzen ?
da "frmmain.ZQuery.Sql" ein Object und somit nur ein pointer ist kannst du dies auf eine andere Pointerinstanz zuweisen. Wenn "Sql" also vom Typ TStrings ist würde das so aussehen:
Delphi-Quellcode:
var LSql: TStrings;
begin LSql := frmmain.ZQuery.Sql; LSql.Text := 'blabla'; |
Re: Variablen-Namen abkürzen ?
Nur so'ne Idee:
Du legst die einfach eine zusätzliche Prozedur an und übergibst das ganze als Variable:
Delphi-Quellcode:
Bemerkung zu SirThornberry's Methode:
procedure test(var mainZQ: DeinTyp);
begin mainZQ.Text := 'blabla'; end; //Aufruf: test(frmmain.ZQuery.Sql); Abschließend müsstest du natürlich noch frmmain.ZQuery.Sql den geänderten Text zuweisen:
Delphi-Quellcode:
frmmain.ZQuery.Sql := LSql
|
Re: Variablen-Namen abkürzen ?
Zitat:
|
Re: Variablen-Namen abkürzen ?
Wie "leddl" schon schrieb handelt es sich bei meiner Ausführung um einen Pointer auf ein und die Selbe Instanz des Objectes. Von daher ist keine weitere Zuweisung notwendig.
|
Re: Variablen-Namen abkürzen ?
Zitat:
Ich würde - allein der Fehleranfälligkeit halber - solche 'Abkürzungen' über andere Variablennamen vermeiden. Mögliche Fehlerquelle: Du gibst ein Objekt über diesen Abkürzungsnamen frei. Der nächste der in dem Quellcode arbeiten muss sucht nach dem normalen Namen, findet keine Freigabe in diesem Kontext und kommt dann später auf die Idee, dieses (schon freigegebene) Objekt zu benutzen. -> Unschön. Ich würde mich da ganz ehrlich nicht über die paar Buchstaben mehr aufregen. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz