mainunit.pas

文件转换

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type
  TfrmMain = class(TForm)
    DataSource: TDataSource;
    DBGrid: TDBGrid;
    Table: TTable;
    btn_Transfer: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure btn_TransferClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function WordTransfer(ProcessedWord:String): String;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btn_TransferClick(Sender: TObject);
var
     FieldValue:String;
begin
     with Table do
     begin
         First;
        { while not eof do
         begin }
              FieldValue:=FieldByName('YIXIANG').AsString;
              FieldValue:=WordTransfer(FieldValue);
              Edit;
              FieldByName('YIXIANG').AsString:=FieldValue;
              {Next;
         end;}
     end;
end;

{function TfrmMain.WordTransfer(ProcessedWord:String):String;
var
    Str:String;
    I,Len:Integer;
    C:String;
begin
    Len:=Length(Trim(ProcessedWord));
    for I:=1 to Len do
    begin
        C:=Copy(ProcessedWord,I,1);
        if  C='X' then
            C:=IntToStr(0xflea)
        else if C='G' then
            C:='?'
        else if C='z' then
            C:='?'
        else if C='D' then
            C:='????????';

        C:=C+IntToStr(I);
        Str:=Str+C;
    end;
    Result:=Str;
end;  }
end.