Stringgrid: Scroll-Focus entfernen

[hoika]

Hallo,
eine Prozedur hat keinen Rückgabewert, kann aber Rückgabeparameter (Referenzparameter) haben.


function Foo1(S: String): Integer;
S: Parameter
: Integer = Rückgabewert der Funktion

procedure Proc1(S: String);
S: Parameter

procedure Proc2(S: String; var X: Integer);
S: Parameter - Wertparameter
X: Parameter - Referenzparameter
Wird X in der Prozedur verändert, ändert sich auch der Wert der Variable das Aufrufers

procedure Proc2(S: String; var X: Integer; Y: Integer);
S: Parameter
X: Parameter
Y: Parameter = Referenzparameter
Wird X in der Prozedur verändert, ändert sich auch die Variable das Aufrufers
Wird Y in der Prozedur verändert, ändert sich die Variable das Aufrufers NICHT

Das var kann man sich wie einen Pointer (eine Referenz) auf die eigentliche Variable beim Aufrufer vorstellen, der an die Prozedur übergeben wird.

http://bergt.de/workshop/delphi/html/delphi39.htm

[Int3g3r]

Zitat von hoika:

procedure Proc2(S: String; var X: Integer; Y: Integer);
S: Parameter
X: Parameter
Y: Parameter = Referenzparameter
Wird X in der Prozedur verändert, ändert sich auch die Variable das Aufrufers
Wird Y in der Prozedur verändert, ändert sich die Variable das Aufrufers NICHT

Das var kann man sich wie einen Pointer (eine Referenz) auf die eigentliche Variable beim Aufrufer vorstellen, der an die Prozedur übergeben wird.

http://bergt.de/workshop/delphi/html/delphi39.htm

"s,y" sind normale übergabeparameter
Die "var x" existiert dort wo sie aufgerufen wird:

Delphi-Quellcode:

procedure btnCSVClick(Sender: TObject);
var Zahl1: integer;
   begin
          proc2(test, zahl1, zahl2 );
   end;

Somit wird beim aufruf eine druch die Variable "X" eine Referenz auf Zahl1 mitgegeben ?

Wäre dann folgendes zulässig ?

Delphi-Quellcode:

procedure btnCSVClick(Sender: TObject);
var Zahl1: integer;
    X: integer; //X wird ja bereits in der proc2 als variable verwendet
   begin
          proc2(test, zahl1, zahl2 );
   end;

Danke für die Hilfe,

Int3g3r

[hoika]

Hallo,
nein, ist nicht richtig.

Delphi-Quellcode:

procedure proc2(s: String; var x: Integer);
begin
  if s='' then
  begin
    // diverser Code1
    x:= 1;    
  end
  else
  begin
    // diverser Code2
    x:= 2;    
  end;
end;

procedure proc1;
var
  s: String;
  x: Integer;
begin
  s:= 'Test';
  x:= 10;
  proc2(s,x);

     x ist ? -> 2, weil in proc2 ja steht
     // diverser Code2
     x:= 2;    
  
  s:= '';
  proc2(s,x);

     x ist ? -> 1, weil in proc2 ja steht
     // diverser Code1
     x:= 1;    
end;

Aber nu kommst !

Delphi-Quellcode:

procedure proc2(Max: String; var Moritz: Integer);
begin
  if Max='' then
  begin
    // diverser Code1
    Moritz:= 1;    
  end
  else
  begin
    // diverser Code2
    Moritz:= 2;    
  end;
end;

procedure proc1;
var
  s: String;
  x: Integer;
begin
  s:= 'Test';
  x:= 10;
  proc2(s,x);

     x ist ? -> 2, weil in proc2 ja steht
     // diverser Code2
     Moritz:= 2;    
  
  s:= '';
  proc2(s,x);

     x ist ? -> 1, weil in proc2 ja steht
     // diverser Code1
     Moritz:= 1;    
end;

Die in proc1 definierte Variable x hat nichts mit dem Parameter x in proc2 zu tun!
Das war im Bsp. 1 einer Zufall. OK, war Absicht

In den Delphi-Quellen wird deshalb bei Parameter immer ein A vorangestellt (ARow).
Das dient einer besseren optischen Unterscheidung zwischen Parametern und Variablen.