Hi,

ich wollte eine Funktion mit Rückgabewert Booelan in eine andere, aber eingebundene unit auslagern. (eigentlich egal, wo)

Darin habe ich die function wie folgt aufgebaut:
(oben, vor implementation wird sie auch mit xxx; forward; aufgerufen)

markieren

Delphi-Quellcode:

function isSpecialString(A: String): boolean;
var T : String;
begin
  // <<< hier muß ich result := false; setzen
  if A[0] = '&' then
  result := true;
end;

Wenn ich am Anfang der Funktoin "result := false;" nicht als FALSE darstelle und
die Funktion aufrufe

markieren

Delphi-Quellcode:

if not isSpecialString ('Kapitalertragssteuerirgendwasblabla') then exit
else
bla;

wird direkt bla ausgeführt, nicht aber exit;.

Ist das so?
Muß ich result am Anfang der Funktion immer erst auf FALSE setzen?
Ich dachte, das braucht man nicht.
Oder mach ich was falsch?

Ja!
Ich setze das Result immer gleich als aller erstes auf FALSE. Sonst passiert genau das, wie du beschreibst.
Getreu nach dem Motto: Am Anfang einer Function/Procedure alle Variablen initialisieren, d.h. einen Startwert geben.
Und dazu gehört auch das Result.

Ist mMn auch Speicher-technisch zu erklären (bitte korrigiere, sollte ich falsch liegen):
Das Result der einen Funktion liegt immer an der gleichen Speicheradresse.
Ein mal auf TRUE gesetzt, bleibt es auf TRUE.

Result ist erst mal nicht definiert. Mit deinem Result = True ist der Zustand definiert. Läufst du die Zeile nicht durch, dann kann Result alles sein, weil undefinierter Zustand

Probier es mal hiermit:

markieren

Delphi-Quellcode:

function isSpecialString(A: String): boolean;
begin
  result := A[0] = '&';
end;

Ich würde aber vorher noch auf Länge prüfen, weil es ja sein kann, dass der String leer ist.

Und bist du dir sicher, dass A[0] und nicht A[1] meinst? Ein String fängt bei 1 an.

achso, äh, ja, ich meine a[1], [eigentlich sowieso eine andere Stelle, das war nur als DEMO]

die Strings sind immer nicht-leer.

Aber danke ich dachte, daß Result mit FALSE vorbelegt wäre.

Zitat von gmc616:

Ich setze das Result immer gleich als aller erstes auf FALSE. Sonst passiert genau das, wie du beschreibst.
Getreu nach dem Motto: Am Anfang einer Function/Procedure alle Variablen initialisieren, d.h. einen Startwert geben.
Und dazu gehört auch das Result.

Mach ich genauso. Ich verlass mich nicht darauf, daß irgendeine Variable einen Default bereits hat.

Lokale Variablen mit Referenzzählung werden immer mit nil (oder '') initialisiert. Alle anderen muss man selber initialisieren.

Zitat:

Local reference-counted* variables are always initialized to nil or '';

https://stackoverflow.com/a/132770/80901


Barry Kelly schrieb dazu:

Zitat:

Local variables are initialized as if they were passed to the Initialize routine. The Initialize routine uses runtime type-info (RTTI) to zero-out fields (recursively - if a field is of an array or record type) and arrays (recursively - if the element type is an array or a record) of a managed type, where a managed type is one of:

AnsiString
UnicodeString
WideString
an interface type (including method references)
dynamic array type
Variant

https://stackoverflow.com/a/861178/80901

Zitat von JanWe:

Muß ich result am Anfang der Funktion immer erst auf FALSE setzen?
Ich dachte, das braucht man nicht.

Dazu sollte es aber auch eine Compilerwarnung geben, dass Result evtl. nicht initialisiert ist. Diese sollten natürlich alle beachtet werden.

In meinen Augen immer diese Regeln beachten.
In jeder Function/Procedure/Methode:
a.) alle Functions-Variablen von Anfang an vorbelegen, im Delphi gleich nach Begin auch das Result, wie gelernt (siehe oben)
b.) alle Parameter auf Gültigkeit prüfen, immer! Im Delphi evtl. nicht so nicht das Thema, in anderen Sprachen schon.
c.) keine Compiler-Warnung ignorieren, niemals. Man verliert in größeren Projekten den Überblick, was wirklich ernst vom Compilier gemeint ist, oder was man seiner eigenen Meinung nach "vernachlässigen" kann.

Seit dem ich u.a. diese 3 Punkte berücksichtige, laufen meine Projekte wesentlich stabiler.
Und ich bin einer, der mittlerweile über 35 Jahren (Gott, bin ich alt^^) mit Programmierung zu tun hat, in den unterschiedlichsten Sprachen.
Diese 3 Regeln führen immer zu einer stabileren Anwendung, egal in welcher Sprache du sie schreibst.

Und, ganz wichtig: Bevor du in einem Forum wie DP eine längeren Text postet, kopieren den Text vorher ins Clipboard, bevor du auf [Antworten] klickst.

Alles Erfahrungswerte.

Zitat von gmc616:

In meinen Augen immer diese Regeln beachten.
In jeder Function/Procedure/Methode:
a.) alle Functions-Variablen von Anfang an vorbelegen, im Delphi gleich nach Begin auch das Result, wie gelernt (siehe oben)
b.) alle Parameter auf Gültigkeit prüfen, immer! Im Delphi evtl. nicht so nicht das Thema, in anderen Sprachen schon.
c.) keine Compiler-Warnung ignorieren, niemals. Man verliert in größeren Projekten den Überblick, was wirklich ernst vom Compilier gemeint ist, oder was man seiner eigenen Meinung nach "vernachlässigen" kann.

Seit dem ich u.a. diese 3 Punkte berücksichtige, laufen meine Projekte wesentlich stabiler.
Und ich bin einer, der mittlerweile über 35 Jahren (Gott, bin ich alt^^) mit Programmierung zu tun hat, in den unterschiedlichsten Sprachen.
Diese 3 Regeln führen immer zu einer stabileren Anwendung, egal in welcher Sprache du sie schreibst.

Und, ganz wichtig: Bevor du in einem Forum wie DP eine längeren Text postet, kopieren den Text vorher ins Clipboard, bevor du auf [Antworten] klickst.

Alles Erfahrungswerte.

Seelenverwandter in allen Punkten hier

Hört sich nach Cargo Cult programming an.