Question

我有以下代码，所有代码需要做的是查看车辆列表并删除每个注册中的空格但在更改之前，应检查以确保修订后的注册不存在。我正在使用以下代码：

unit Main;
interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, Gauges, DB,
 DBTables, StrUtils;

type
TfrmMain = class(TForm)
  prgTotal: TGauge;
  btnStart: TcxButton;
  tblVeh: TTable;
  tblVehRegNo: TStringField;
  procedure btnStartClick(Sender: TObject);
private
  procedure OpenTable(pTable: TTable);
  procedure CloseTable(pTable: TTable; pPost: Boolean);
  { Private declarations }
public
  { Public declarations }
end;

var
  frmMain   : TfrmMain;
  lvRegLst  : TStringList;
  lvTblSize : Integer;
  lvOrigReg : String;
  lvNewReg  : String;
  lvTest    : integer;

implementation

{$R *.dfm}

procedure TfrmMain.btnStartClick(Sender: TObject);
begin
  btnStart.Enabled := False;
  lvRegLst  := TStringList.Create;

  // Open Tables
  tblVeh.Open;
  tblVeh.First;

  // Set progress
  prgTotal.MinValue := 0;
  lvTblSize         := tblVeh.RecordCount;
  prgTotal.MaxValue := tblVeh.RecordCount;
  btnStart.Caption  := 'Parsing Registration Numbers...';

  // Conversion
  while not tblVeh.Eof do
  begin
    lvRegLst.Add(tblVehRegNo.AsString);
    tblVeh.Next;
    prgTotal.AddProgress(1);
    Application.ProcessMessages;
  end;

  tblVeh.First;
  lvTest            := lvRegLst.Count;
  prgTotal.Progress := 0;
  btnStart.Caption  := 'Removing Spaces...';

  while not tblVeh.Eof do
  begin
    lvOrigReg := tblVehRegNo.AsString;
    lvNewReg  := AnsiReplaceStr(lvOrigReg,' ','');

    if lvRegLst.IndexOf(lvNewReg) = -1 then
    begin
      tblVeh.Edit;
      tblVehRegNo.AsString := lvNewReg;
      prgTotal.AddProgress(1);
      tblVeh.Post;
    end;

    tblVeh.Next;
    prgtotal.AddProgress(1);
    Application.ProcessMessages;
  end;

  // Close Tables
  tblVeh.Edit;
  tblVeh.Post;
  tblVeh.Close;

  btnStart.Caption := '&Start Conversion';
  btnStart.Enabled := True;
end;

我已经完成了代码，所有看起来都很好，并且它成功地改变了对车辆的注册，但是当看到桌子后，它没有做任何改变。

Answer 1

问题在于数据库本身，事实证明'RegNo'是唯一的关键字段，因此它是默认索引。当我的转换正在进行时，它正在更改注册，这会移动'光标'并跳过一些注册。

我为此次转化添加了另一个索引，但对其数据进行大约50-60次传递最终将整理出所有注册。

感谢您提供所有帮助。

代码查看/运行正常但没有进行任何更改

1 个答案: