string, de functie van de string van afzonderlijke delen van de resolutie, touw, en op de dynamische snaren,,, terug in een lijst van deel een,,,, de volgende functies segmentering van de sub - onderdeel van een lijst van mogelijke in het touw is een functie van de Derde of de parameters van een terugkeer (in het laatste geval de volgende beller, moet door de vrijlating van):,,,,,, -, het gebruik van dergelijke functies; en splitstrings (totaal STR string constant:;:,, - string ",",,, string: tstrings = nul): tstrings;,, functie ansisplitstrings (totaal STR string constant:;:,, - het touw ",";Tstrings, string: = nul): tstrings;,,,,, de uitvoering van, het gebruik van SysUtils;,,, functionele splitstrings (totaal STR string constant string scheidingsteken;::;:,,... Tstrings): ///////tstrings;,, gevuld met een lijst van "STR" deel van de scheiding,, /".".If Nil is passed instead of a string list,,, //the function creates a TStringList object which has to,, //be freed by the caller,, var,, n: integer;,, p, q, s: PChar;,, item: string;,, begin,, if Strings = nil then,, Result := TStringList.Create,, else,, Result := Strings;,, try,, p := PChar(str);,, s := PChar(separator);,, n := Length(separator);,, repeat,, q := StrPos(p, s);,, if q = nil then q := StrScan(p, #0);,, SetString(item, p, q - p);,, Result.Add(item);,, p := q + n;,, until q^ = #0;,, except, , , item := '';,, if Strings = nil then Result.Free;,, raise;,, eND;,,,,, aan het einde van de functie (totaal; ansisplitstrings STR string constant string scheidingsteken;::;:,,... Tstrings): ///////tstrings;,, gevuld met een lijst van "STR" deel van de scheiding,, /"dienst".If Nil is passed instead of a string list,,, //the function creates a TStringList object which has to,, //be freed by the caller,, //ANSI version,, var,, n: integer;,, p, q, s: PChar;,, item: string;,, begin,, if Strings = nil then,, Result := TStringList.Create,, else,, Result := Strings;,, try,, p := PChar(str);,, s := PChar(separator);,, n := Length(separator);,, repeat,, q := AnsiStrPos(p, s);,, if q = nil then q := AnsiStrScan(p, #0);,, SetString(item, p, q - p);,, Result.Add(item);,, p := q + n;,, until q^ = #0;,, except,, item := '';,, if Strings = nil then Result.Free;,, raise;,, end;,, Einde;,,,,,, een evenement voorbeelden van programma 's. Om te draaien en lettertype (afzender: TObject);,,,, splitstrings (edit1.text, ",", het aantal. Het project);,,,,, het einde van de procedure; een incident. Button2click (afzender: TObject), var,; deel: tstrings;,,,,,,,,, - = nul; onderdelen: = splitstrings (edit1.text, ",");,, worden (eerste deel "+ deel [0] +"); en, ten slotte, de vrijheid, deel;,,,,,, aan het einde van het;; zie je een voorbeeld van de toepassing van een dynamisch systeem in plaats van in een afzonderlijk artikel, stringlist.