if Edit8.Text <>'' then begin str1:=Edit8.TExt; cnt1:=Length(Edit8.Text); for i:=1 to cnt1 do for j:=1 to cnt1 do for k:=1 to cnt1 do begin a:=str1[i]; b:=str1[j]; c:=str1[k]; strsLimit2.Add(a+b+c); end; end;
var
str:arrayof string;
procedure TForm1.Button2Click(Sender: TObject);
var
sl:Tstringlist;
i: integer;
begin
sl:=Tstringlist.Create;
sl.DelimitedText:='35,445,567';
sl.Delimiter:=',';
setlength(str,sl.Count);
for i:=0to sl.Count-1do
str[i]:=sl.Strings[i];
end;
sl:=Tstringlist.Create; sl.DelimitedText:='35,445,567'; sl.Delimiter:=','; setlength(str,sl.Count); for i:=0 to sl.Count-1 do str[i]:=sl.Strings[i]; sl.free;
