TStringList.Append

Parameter

(const S: String);

Beschreibung

Die Funktion Append hat im Unterschied zu der Add Funktionen keinen Rückgabewert und wird nur eingesetzt, wenn der Index des hinzugefügten Strings nicht benötigt wird.

Beispiel

procedure Test_Append;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Append('Another Animal');
    if (TestObj.Strings[TestObj.Count-1] <> 'Another Animal') 
      then raise ('Test_Append Fehler')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;