Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Könnte mir jemand bitte mal das genaue Vorgehen zu Findfirst und findnext in Boralnd Pascal 7 UND Delphi beschreiben?
Das TSearchRec ist die Struktur, in der die Daten zu der jeweils gefundenen Datei abgelegt werden.weiß aber nicht was das Search REC ist
Dann müsstest Du aber eigentlich schon etliches dazu gefunden haben.Ich hab mich schonmal kundig gemacht
uses DOS
var Dirinfo: searchrec;
begin
findfirst('*.exe',archive,dirinfo);
while doserror = 0 do
begin
writeLn(dirinfo.name);
findnext(dirinfo);
end;
end.
Program test;
uses WinDOS;
type searchrec = Record
name:String;
End;
var Dirinfo: searchrec;
begin
findfirst('d:\*.exe',$3F,dirinfo);
while doserror = 0 do
begin
writeLn(dirinfo.name);
findnext(dirinfo);
end;
end.
type TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;