2022-12-23 38 0

procedure Shuffle(Strings: TStrings);var i: Integer;begin//delphitop.com for i := Strings.Count-1 downto 1 do Strings.Exchange(i, Random(i+1));end;

2022-12-23 33 0

Memo1.Lines.Insert(1, 'string 0');

2022-12-23 45 0

function getOneLineMemo(memo:Tmemo):String;var i:integer;begin result := ''; for i:=0 to Memo.lines.count do result := result + memo.lines[i];end;procedure TForm1.FormCreate(Sender: TObject);beginMemo2.Text:=getOneLineMemo(Memo1);end;

2022-12-23 73 0

procedure TForm1.btn1Click(Sender:TObject);var m: Integer; s: string; strlst :TStrings;begin strlst:= TStringList.Create; strlst.Add('张三=80'); strlst.Add('张四=90'); strlst.Add('张五=100'); strlst.NameValueSeparator := '=

2022-12-23 41 0

//删除整个文件夹及其下的所有文件function DelDirAll(aDir: string): Boolean;varvSearch: TSearchRec;vRet: integer;vKey: string;beginif aDir[Length(aDir)] <> '\' thenaDir := aDir + '\';vKey := aDir + '*.*';vRet := FindFirst(vKey, faanyfile, vS

2022-12-23 42 0

FDMemTable1.Close; with FDMemTable1 do begin with FieldDefs do begin Clear; Add('Brand', ftInteger); Add('Name', ftString, 20); Add('ModelYear', ftInteger); Add('Price', ftCurrency); end

2022-12-23 27 0

ADODataSet1.ConnectionString := 'Provider=ADsDSOObject'; ADODataSet1.CommandText := 'select cn, distinguishedname from ''LDAP://HOME'' where objectClass=''*'''; ADODataSet1.Open; ADODataSet1.Recordset.

2022-12-23 43 0

FDMemTable1.IndexFieldNames:='id;ParentId';