Verhält sich "Result" wie eine globale Variable??

[Amateurprofi]

Zitat von BloodySmartie:

Okay, also mal anders:

Delphi-Quellcode:

var 
s:string;
a:array of char[2];

begin
a[0]:='1';
a[1]:='1';
s:=getStringfromCharArr(a);
//s enhält an dieser Stelle '11'
//weiter...
a[0]:='2';
a[1]:='2';
s:=getStringfromCharArr(a);
//Ich hätte nun erwartetn, dass in s '22' steht. - "Neuer Funktionsaufruf, neues Glück."
//Stattdessen steht darin aber '1122'.
end.

Vielleicht isses jetzt besser verständlich.

Schau dir das doch mal im Debugger in der CPU-Ansicht an.
Wenn der Rückgabewert einer Funktion ein String ist, dann wird der Funktion beim Aufruf die Adresse, an der das Ergebnis der Funktion gespeichert werden soll, mitgegeben. Result ist in diesem Fall also nicht eine lokale Variable der aufgerufenen Funktion, sondern eine Variable der aufrufenden Funktion/Prozedur.
Im Prinzip ist das so, als würdest du getStringfromCharArr nicht als Funktion deklarieren sondern als Prozedur mit einem var-Parameter für das Ergebnis, also :

Delphi-Quellcode:

Procedure getStringfromCharArr(ca:array of char: var result:string); 
var i,l:integer; 
begin 
// result:='';  ---Problemlösung :) 
l:=length(ca); 
for I := 0 to l - 1 do begin 
  result:=result+string(ca[i]); 
end; 
end;

[jottkaerr]

Hallo,

Zitat von Oxmyx:

Mein Delphi 7 warnt wie erwartet:

Delphi-Quellcode:

function A(): Integer;
begin
  Result := Result + 1;
end;

Code:

[Warning] Unit1.pas(28): Return value of function 'A' might be undefined

Du hast ja auch einen Integer verwendet. Bei Strings warnt Delphi (wenigstens bis Delphi 5) nicht, wenn sie in Funktionen nicht initialisiert werden.

Die Funktion

Delphi-Quellcode:

function A(): string;
begin
  Result := Result + '1';
end;

geht unbeanstandet durch den Compiler.

jkr

[xaromz]

Hallo,

Zitat von jottkaerr:

Du hast ja auch einen Integer verwendet. Bei Strings warnt Delphi (wenigstens bis Delphi 5) nicht, wenn sie in Funktionen nicht initialisiert werden.

das liegt wohl daran, dass Strings als dynamische Typen automatisch initialisiert werden. Result ist aber keine explizit deklarierte Variable, und wird deshalb auch nicht initialisiert.

Gruß
xaromz

[himitsu]

also, im Normalfall verhält sich Result zum Ende der Funktion wie

Delphi-Quellcode:

Function xyz(a: x; b: x; c: x): Typ;

// dieses wird z.B. mehr so behandelt

Procedure xyz(a: x; b: x; c: x);
Begin

End Procedure xyz(out Result: Typ);

Strings und die anderen dynamischen Arrays werden allerdings von Delphi besonders behandelt.

Diese werden als Erstes mal im gegensatz zu allen anderen Variablen immer Initialisiert und Finalisiert.
Außerdem vesucht die CompilerOptimierung immer "dynamische/virtuelle" Variablen mehrfach zu verwenden und nicht immer gleich bei jeder Verwendung neu zu initialisieren/finalisieren.

also sieht es für Strings/DynArrays mehr so aus

Delphi-Quellcode:

Function xyz(a: x; b: x; c: x): Typ;

// dieses wird z.B. mehr so behandelt

Procedure xyz(a: x; b: x; c: x; in Result: Typ);
Begin

End Procedure xyz(out Result: Typ);

wobei Result dann global, oder (meistens) lokal in der aufrufenden Funktion/Prozedur definiert ist.


Außerdem müssen Variablen immer vom Programmierer initialisert werden (nur weil es Delphi bei Strings im Grunde macht, soll man nicht davon ausgehn, daß es grade zu dem Zeitpunkt extra initialisiert wurde)

Zitat:

[Warning] Unit1.pas(28): Return value of function 'A' might be undefined

tja, diese Warnung ist halt nicht umsonst ... wer mit dem ergebnis einer variable arbeiten will, der soll vorher sicherstellen, das diese einen definierten Zustand bekommt!

bei "normalen" Typen (ohne delphieigene Initialisierung) steht Result komplett auf einem Zufallswert (halt das, was vorher von irgendwas an dieser Stelle mal gespeichert wurde)

Zitat:

function A(): Integer;
begin
Result := Result + 1;
end;

PS: nur globale Variablen werden beim Programmstart mit #0-en initialisiert (bei Strings entspricht dieses '')
und Klassenvariablen werden ebenso von Constructor mit #0 initialisert.

[jmit]

Zitat von BloodySmartie:

Okay, also mal anders:

Delphi-Quellcode:

var 
s:string;
a:array of char[2];

begin
a[0]:='1';
a[1]:='1';
s:=getStringfromCharArr(a);
//s enhält an dieser Stelle '11'
//weiter...
a[0]:='2';
a[1]:='2';
s:=getStringfromCharArr(a);
//Ich hätte nun erwartetn, dass in s '22' steht. - "Neuer Funktionsaufruf, neues Glück."
//Stattdessen steht darin aber '1122'.
end.

Vielleicht isses jetzt besser verständlich.

Bei Deinem Quellcode wird die Funktion getStringfromCharArr wahrscheinlich innerhalb einer Funktion aufgerufen. Wenn ich aber die Funktion z.B. aus zwei ButtonClick Prozeduren oder aus zwei Funktionen aufrufe, dann wird die Variable result bei der ersten Funktion mit '11' gesetzt und bei der zweiten Funktion mit '22' gesetzt.

Gruß Jörg