Übergabe Tstringlist

[Eradikator]

Hallo, ich habe versucht mit folgendem Quelltext eine Tstringlist
beim Aufruf einer Prozedur zu übergeben und es kam die Meldung: List index (0) out of bounds.

Code: Alles auswählen

procedure tauschen(var moin: tstringlist);
begin
 moin := Tstringlist.create;
 //moin.AddStrings();
 moin.Exchange(0, 1);
 moin.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 x : tstringlist;
begin
 x := Tstringlist.create;
 memo2.Clear;
 memo2.Lines.AddStrings(memo1.lines);
 //memo2.Lines.Exchange(0,1);
 x.AddStrings(memo2.lines);
 tauschen(x);
 //x.Exchange(0,1);
 memo2.Lines.Addstrings(x);
 x.Free;
 if checkbox1.Checked then
   showmessage('Checkbox1 ist gedrückt');
 
end;                  

Ich komm einfach nicht auf den Fehler. Hat jemand eine Idee?

mit freundlichen Grüßen

[irq]

hi
in tauschen() bekommst du bereits eine ref "moin" aus der parameterliste, warum erzeugst/zerstörst du noch eine tstringlist mit dem gleichen namen?
lass das create und free in tauschen weg.

[m.fuchs]

Und das var auch. Also so:

Code: Alles auswählen

procedure tauschen(moin: tstringlist);

[Eradikator]

Hallo, vielen Dank euch beiden. Ist eigentlich logisch. Ich hab nicht dran gedacht, dass moin durch x ersetzt wird und x als Stringlist schon erzeugt und wieder freigegeben wird.

freundliche Grüße