谁帮我看看这段代码的含义

unit Word_Seg_Front;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;type  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet2: TADODataSet;
    ADODataSet1: TADODataSet;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  id:int64;
  outputdir:array[0..4] of string;
  text:string;
  filename:string;
  serverip:string;
  count:integer;
  num:integer;
  ipstr:string;
  username:string;
  password:string;
  database:string;
implementation{$R *.dfm}Procedure ClearString(var str:string);
var
    k :integer;
begin    k := pos('=', str);
    delete(str, 1, k);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    AssignFile(Input,'../conf/config.ini');Reset(Input);
    readln(ipstr);
    ClearString(ipstr);
    readln(database);
    ClearString(database);
    Readln(username);
    ClearString(username);
    readln(password);
    ClearString(password);
    outputdir[0]:='..\classifer\try';{    Provider=SQLOLEDB.1;Password=fd100;Persist Security Info=True;User ID=sa;Initial Catalog=tdt;Data Source=10.8.8.16}
    ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;User ID='+username+';Initial Catalog='+database+';Data Source='+ipstr;
  ADODataset1.Open;
  randomize;
  count := 0;
  while (true) do
  begin
    repeat
      Sleep(100);
      ADODataset1.Requery();
    until ADODataset1.IsEmpty = false;
    repeat
    try
      inc(count);
      ADODataset1.Edit;
      id := ADODataset1.Fields[0].Value;      ADODataset2.CommandText := 'select text from threadinfo' +
                                 ' where id='+ inttostr(id);        ADODataset2.Open();
        text := ADODataset2.Fields[0].Value;
        ADODataset2.Close();
{        filename := outputdir[count mod 4]+'\'+inttostr(id)+'.txt';}
        filename := outputdir[0]+'\'+inttostr(id)+'.txt';
        assignFile(output, filename);
        rewrite(output);
        writeln(text);
        closeFile(output);
      except
      end;
      ADODataset1.Delete;
//      ADODataset1.Next
    Until ADODataset1.EOF;
  end;
end;end.
帮我讲述那些TADODataSet为什么open没有参数的
我打算把这些改成vc