$0000003F是啥？

冥界3大法王

[Delphi] 纯文本查看 复制代码

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls;

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
    function FindAllFileInADirectory(Directory: string; RetList: TStringList): TStringList;
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
  TempList: TStringList;
begin
  TempList := TStringList.Create;
  TempList := FindAllFileInADirectory(Edit1.text, TempList);
  memo1.Lines.Clear;
  memo1.Lines.Assign(TempList);
  TempList.clear;
end;

function TForm4.FindAllFileInADirectory(Directory: string; RetList: TStringList): TStringList;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(Directory + '\*.pas', $0000003F, SearchRec) = 0 then
  begin
    repeat
      RetList.Add(Directory + '\' + SearchRec.Name);
    until (FindNext(SearchRec) <> 0);
  end;
  FindClose(SearchRec);
end;

end.

苏紫方璇

https://www.cnblogs.com/coorun/p/3566251.html
应该是faAnyFile代表任意文件

云在天

faReadOnly = $00000001 platform;   //只读文件
faHidden = $00000002 platform;  //隐藏文件
faSysFile = $00000004 platform;  //系统文件
faVolumeID = $00000008 platform;   //卷标文件
faDirectory = $00000010;　　//目录文件
faArchive = $00000020 platform;  //归档文件
faSymLink = $00000040 platform;  //链接文件
faAnyFile = $0000003F;  //任意文件

4899

Delphi 里面$0000003F 任意文件

LightHouseZ

这是什么语言？bash吗？0.0

冥界3大法王

为什么报错呢？

Project Project5.exe raised exception class $C0000005 with message 'access violation at 0x00408678: read of address 0x003a0028'.

[Delphi] 纯文本查看 复制代码

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function FindAllFileInADirectory(Directory: string; RetList: TStringList): TStringList;
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}


function TForm4.FindAllFileInADirectory(Directory: string; RetList: TStringList): TStringList;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(Directory + '\*.pas', $00000010, SearchRec) = 0 then
  begin
    repeat
      RetList.Add(Directory + '\' + SearchRec.Name);
    until (FindNext(SearchRec) <> 0);
  end;
  FindClose(SearchRec);
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  TempList: TStringList;
begin
  TempList := TStringList.Create;
  TempList := FindAllFileInADirectory(Edit1.text, TempList);
  memo1.Lines.Clear;
  memo1.Lines.Assign(TempList);
  TempList.clear;
end;


end.

manyou

冥界3大法王 发表于 2022-6-15 10:57
为什么报错呢？

ac错误？ 哪行报的错呢？