threaderrorcolumn.pas

来自「sql inject HDSI3--delphi.rar」· PAS 代码 · 共 40 行

unit ThreadErrorColumn;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,ComCtrls;

type
  TThreadErrorColumn = class(TThread)
  FURL:string;
  iTop:integer;
  TableName:string;
  complete:boolean;
  xtype,ColumnName:string;
  private

  published
  procedure Execute; override;
  public
  end;
implementation
uses
main_unit,CJdatabase_unit,define_unit,ThreadHttpGet;
//******************************************************************************

procedure TThreadErrorColumn.Execute;
var
   i:integer;
   label start ;
begin
    sleep(1000);
    start:
    complete:=false;
    ColumnName:=cjdatabase_unit.GetColumName(FURL,iTop,TableName);
    xtype:=cjdatabase_unit.GetColumType(FURL,ColumnName,TableName);
    if  (ColumnName='δ֪') or (xtype='δ֪') then
    goto start;
    complete:=true;
end;
end.