TStringList.Count

Parameter

Integer;

Beschreibung

Die Eigenschaft Count gibt die Anzahl der Strings in der Liste an. Mit Count können Sie alle Strings in der Liste durchlaufen oder die Position eines Strings relativ zum letzten String in der Liste ermitteln.

Beispiel

procedure Test_Count;
var
  count : Integer;
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Igel');
    TestObj.Add('Rabe');
    count := TestObj.Count;
    TestObj.Add('Schlange');
    if (count+1 <> TestObj.Count) then
      raise('Test_Count Fehler');
    else
    showmessage(count);
  finally
    TestObj.free;
  end;
end;