TStringList.StrictDelimiter

Parameter

() : Boolean;

Beschreibung

Die Methode StrictDelimiter gibt an, ob Delimiter der einzige verwendete Wert ist in der Eigenschaft DelimitedText.
Gibt die Funktion ein True zurück, dann werden die einzelnen Strings in der Eigenschaft DelimtedText nur durch das in Delimiter definierte Zeichen entsprechend getrennt.
Bei einem False werden die einzelnen Strings durch ein Leerzeichen oder dem in Delimiter definierten Zeichen getrennt.

Beispiel

procedure Test_StrictDelimiter;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.create;
  try
    TestObj.Delimiter := '+';
    TestObj.StrictDelimiter := True;
    TestObj.DelimitedText := 'Nilpferd+Maus+Großer Ara '+#$0D#$0A+ 'Regenbogenforelle+ Blaubarsch';
    if TestObj.Count <> 4 
      then raise ('Test_StrictDelimiter Error')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;