benset.pas

百度知道的自动发帖回复机器人。可以用来发广告

unit BEnSet;
interface
Uses Sysutils,Inifiles,Main;

Procedure ListRepStr;

implementation

Procedure ListRepStr;
Var
  StrPath:String;
  IntLoop:Integer;
Begin
  For IntLoop:=0 To 5 Do
  Begin
    StrPath:=AppPath+'\Rep'+IntToStr(IntLoop);
    FrmMain.Mmo.Clear;
    If FileExists(StrPath) Then
    Begin
      FrmMain.Mmo.Lines.LoadFromFile(StrPath);
      StrRep[IntLoop]:=FrmMain.Mmo.Text;
    End
    Else
      StrRep[IntLoop]:='';
  End;
  FrmMain.Mmo.Text:=StrRep[1];
End;

end.