TStringList und Count

[Spurius]

Hallo,

Delphi-Quellcode:

procedure TForm1.com1TriggerAvail(CP: TObject; Count: Word);
var i: word;
    input: string;
    liste: TStringList;
begin
 liste := TStringlist.Create;
 for i := 1 to count do begin
  input := input + com1.GetChar;
 end;
 liste.Add(input);
 showmessage(inttostr(liste.Count));
 input := '';
end;

Ich bekomme da immer "1" als Meldung, dabei sollte sich eigentlich das Resultat von Count immer erhöhen oder?
Gruß
Spurius

[3_of_8]

Natürlich nicht.

Du erzeugst bei jedem Aufruf der Funktion eine neue Instanz der TStringList und setzt den Pointer auf die lokale Variable liste.

Wenn die Variable liste programmweit gelten soll, musst du wohl oder übel eine globale Variable nehmen.

[Muetze1]

Zitat von 3_of_8:

Wenn die Variable liste programmweit gelten soll, musst du wohl oder übel eine globale Variable nehmen.

Eine Deklaration im private Bereich des Formulars TForm1 würde auch reichen, global muss sie nicht gleich sein, vor allem, da sie nur zur Lebzeit der Klasse TForm1 gebraucht wird und er bei mehreren Instanzen von TForm1 bestimmt nicht nur eine Liste für alle Instanzen haben will.