Forum: Object-Pascal / Delphi-Language
Delphi
by GuenterS,
17. Jan 2005
Vielleicht hilft es ja, wenn Du Dein ganzes Projekt mal reinstellst. Bei mir funktioniert der Code nämlich auch problemlos.
Forum: Object-Pascal / Delphi-Language
Delphi
by GuenterS,
16. Jan 2005
procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
found: integer;
begin
found := findfirst(IncludeTrailingPathDelimiter(Edit1.Text)+'*.*',faanyfile,sr);
while found=0 do
begin
if ((sr.attr and faDirectory) <> faDirectory) then
with ListView1.Items.Add do
Forum: Object-Pascal / Delphi-Language
Delphi
by GuenterS,
16. Jan 2005
procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
found: integer;
begin
found := findfirst(IncludeTrailingPathDelimiter(Edit1.Text)+'*.*',faanyfile,sr);
while found=0 do
begin
if ((sr.attr and faDirectory) <> faDirectory) then
with ListView1.Items.Add do
Forum: Object-Pascal / Delphi-Language
Delphi
by GuenterS,
16. Jan 2005
procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
found: integer;
begin
found:= findfirst(Edit1.Text+'\*',faanyfile,sr);
while found=0 do
begin
if ((sr.attr and faDirectory)=0) then
with ListView1.Items.Add do
Forum: Object-Pascal / Delphi-Language
Delphi
by GuenterS,
16. Jan 2005
1) sr.date sollte datum liefern
2) sr.Attr liefert die attribut kombination, wenn du überprüfst ob das FaDirectory Bit nicht gesetzt ist, weißt Du dass es kein directory ist if (sr.attr and faDirectoy) = 0 oder so