Problem mit with Form1 do begin

[Teclador]

Hallo zusammen,

mir ist gerade in Delphi 10.4 folgendes aufgefallen, was leicht zu Fehlern führen kann, die nicht so schnell bemerkt werden.

Ich habe eine Funktion, die nicht zur Form gehört:

function SinnvollerName(Name : String = '') : String;
begin
Result:= Name + 'Sinn';
end;

Macht was sie soll, der Parameter Name wird wie erwartet verwendet.

Benutze ich aber in einer solchen Funktion ein with Form1 do begin,
weil ich mich auch noch auf mehrere Objekte der Form beziehe und nicht immer "Form1." davor schreiben will,
dann wird der Parameter "Name" nicht mehr beachtet, und "Name" ist immer der Name der Form1.

function SinnvollerName(Name : String = '') : String;
begin
with Form1 do begin
Left := 10;
....
Result:= Name + 'Sinn'; //ergibt "Form1Sinn"
end;
end;

Auch wenn "Name" als Variable innerhalb der Funktion deklariert wird, gibt es Probleme.
"Name" ist immer der Name der Form1.

function SinnvollerName(Wert : String = '') : String;
var
Name : String;
begin
with Form1 do begin
Left := 10;
....
Result:= Name + 'Sinn'; //ergibt "Form1Sinn"
end;
end;

Ich habe es bislang immer unter der Annahme verwendet, dass das Objekt zwischen with .. do
nur dann zum Tragen kommt, wenn ein Bezeichner sonst keinen Sinn macht.

So wie es jetzt ist verliert eine klar deklarierte Variable ihre Bedeutung.

Oft merkt man es nicht, da ja ein Wert vorhanden ist, nur nicht der den man erwartet.

-----------------------

Ist das tatsächlich ein Fehler oder habe ich nur die Logik und den Sinn dahinter nicht kapiert.