unitbasicinfofr.~pas

信号机测试信号管理软件 其中含有文件上传及修改数据库数据的功能

unit Unitbasicinfofr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tbasicinfofr = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  Type
   TFileHead = Record
    code : string[30];
    end;
type
  TFileData = record
  name:array [0..999] of char;
  end;
var
  filename:string;


var
    FileStream: TFileStream;
    FileHead: TFileHead;
   filedata:Tfiledata;

var
  basicinfofr: Tbasicinfofr;

implementation

{$R *.dfm}

Function GetRAM:Char;
var
  Ch : Char;
  S  : string;
begin
  for Ch := 'D' to 'Z' do
  begin
    s := Ch + ':\';
    if GetDriveType(PChar(s)) = DRIVE_REMOVABLE then
    Begin
      Result:=Ch;
      Break;
    End;
  end;
End;

procedure CreateFile(TFileName: string);
Begin
  If Not FileExists(TFileName) Then
  Begin
    FileStream := TFileStream.Create(TFileName, fmCreate);
    FileStream.Seek(0, soFrombeginning);
    Filestream.Write(filehead, sizeof(filehead));
    FileStream.Write(FileData, SizeOf(FileData));
    FileStream.Free;
    showmessage('成功写入');
  End
  Else
  Begin
    FileStream := TFileStream.Create(TFileName, fmOpenRead);
    showmessage('已存在信息文件,可读');
  End;
End;

procedure Tbasicinfofr.Button1Click(Sender: TObject);
var  s,a,filename,aa,b:string;

begin
     if GetRAM=''
     then showmessage('请插入优盘')
     else
     if edit1.Text='' then showmessage('请输入编号')
     else
     begin
        s:=GetRAM+':\';
        b:=edit1.Text;
        a:=edit1.Text+'.txt';
        filename:=s+'xazx.txt';
        //edit5.Text:=filename;
        aa:=filename;
        filehead.code:=b;
        createfile(filename);
        {if not FileExists(FileName)
        then
         showmessage('请检查!')
        else showmessage('成功写入'); }
        FileSetAttr(aa, 33 );
     end;
end;


end.