Recent content by brs

Вот еще function StringSplit(Str,Delim:String):TStrings; var I,Start,Count: Integer; begin Result := TStringList.Create; Start := 1; I := 1; Count := 0; While I < Length(Str) do begin if Copy(Str,I,Length(Delim)) = Delim then begin Result.Add(Copy(Str,Start,I -...

list:=TStringList.Create; list.Delimiter:=';'; list.Text:='1;2;3'; for I := 0 to List.Count - 1 do result[i]:=list.Strings[i];