string, de functie van de string van afzonderlijke delen van de resolutie, touw, en op de dynamische netwerken. De in de onderdelen, en terug in een serie,,,, een string deel van de volgende functies verdeeld in touw, een dynamische snaren terug:,,,,,,, - interface, tstringarray = snaren;,,, de functionele scheiding (totaal:;,, totaal (Str.: string ","): tstringarray;,, functie ansisplit (totaal STR string constant:;:,, - string ","): tstringarray;,,, de uitvoering van het SysUtils;,,,,,, de functionele scheiding (totaal:;,, totaal (Str.: string): tstringarray;,, /returns an array with the parts of "str" separated by "separator",, var,, i, n: integer;,, p, q, s: PChar;,, begin,, SetLength(Result, Occurs(str, separator)+1);,, p := PChar(str);,, s := PChar(separator);,, n := Length(separator);,, i := 0;,, repeat,, q := StrPos(p, s);,, if q = nil then q := StrScan(p, #0);,, SetString(Result[i], p, q - p);,, p := q + n;, , , inc(i);,, until q^ = #0;,, end;,,, function AnsiSplit(const str: string;,, const separator: string): TStringArray;,, //Returns an array with the parts of "str" separated by "separator",, //ANSI version,, var,, i, n: integer;,, p, q, s: PChar;,, begin,, SetLength(Result, AnsiOccurs(str, separator)+1);,, p := PChar(str);,, s := PChar(separator);,, n := Length(separator);,, i := 0;,, repeat,, q := AnsiStrPos(p, s);,, if q = nil then q := AnsiStrScan(p, #0);,, SetString(Result[i], p, q - p);,, p := q + n;,, inc(i);,, until q^ = #0;,, end;,,, Example:,,, procedure TForm1.Button1Click(Sender: TObject);,, var,, a: TStringArray;,, i: integer;,, begin,, a := Split('part1,part2,part3');,, for i := 0 to Length(a) - 1 do begin //Will show three dialogs,, ShowMessage(a[i]); //'part1', 'part2', 'part3',, end;,, end;,,, You can see an example using a StringList instead of a In een afzonderlijk artikel in de reeks, dynamisch.