TStringList als var Parameter?

[KreuzBlick]

Hallo,

ich habe mal eine eher theoretische Frage. Mal angenommen, ich will ein Objekt vom Typ TStringlist in einer Prozedur bearbeiten und bearbeitet zurückbekommen. Muss ich dann der Prozedur die Variable als var-Parameter übergeben oder geht es auch als Wertparameter?
Ich frage deshalb, weil der Prozedur in beiden Fällen ein Zeiger übergeben wird. Wenn dieser nicht geändert wird, sondern nur der Speicher auf den gezeigt wird, so kommt das Ergebnis doch in beiden Fällen im aufrufenden Programmteil an.
Was ist also zu empfehlen?

[theo]

Ja, du brauchst dafür keinen var Parameter.
Es gibt aber schon einen Unterschied.

Testen Sie selbst:

Code: Alles auswählen

procedure TesteVar(var AList: TStringList);
begin
  AList:=TStringList.Create;
  AList.Add('testen var');
end;

procedure Teste(AList: TStringList);
begin
  AList:=TStringList.Create;
  AList.Add('testen');
end;

procedure TForm1.Button1Click(Sender: TObject);
var Ast:TStringList;
begin
  Ast:=TStringList.Create;
  TesteVar(Ast);
  Teste(Ast);
  Memo1.Text:=Ast.Text;
end;  

Im "richtigen Leben" noch auf den Speicher achten!

[PascalDragon]

Hallo,

ich habe mal eine eher theoretische Frage. Mal angenommen, ich will ein Objekt vom Typ TStringlist in einer Prozedur bearbeiten und bearbeitet zurückbekommen. Muss ich dann der Prozedur die Variable als var-Parameter übergeben oder geht es auch als Wertparameter?
Ich frage deshalb, weil der Prozedur in beiden Fällen ein Zeiger übergeben wird. Wenn dieser nicht geändert wird, sondern nur der Speicher auf den gezeigt wird, so kommt das Ergebnis doch in beiden Fällen im aufrufenden Programmteil an.
Was ist also zu empfehlen?

Für Klasseninstanzen musst du var (oder auch out) für Parameter nur benutzen, wenn du die Instanz ändern möchtest (also zum Beispiel du aVarArg := TStringList.Create). Ansonsten reicht es einen normalen by-Value Parameter zu nutzen. Selbst const oder noch schlimmer constref ist dafür nicht nötig.