hallo also ich kann jetzt das verzeichnis auswählen, und ich kann inswichen dateien auslesen…aber ich kann nicht automatisch alle dateien aus dem ordner rauslesen:
ICH poste mal meinen code(sorry wenn das zuviel ist an code, aber ich weiss nicht was relevant ist-heute ist mein 3.tag mit der sprache)-wenn mir jemand weiterhlelfen kann wäre echt toll :o)
;
var
Directory: string;
F:TSearchRec;
function Load :string;
var
Dir: string;
Root: WideString;
F :TSearchRec;
begin
Dir := ‚Archiv auswählen!‘;
Root :=‚C:‘;
IF SelectDirectory(Dir,Root,Directory)THEN
result :=Directory;
end;//ENDE Load !
function LoadImage : string;
VAR
i :INTEGER;
begin
findfirst(Directory,$0000003F,f);
//for i :=0 TO 0 DO
findnext(f);
result :=F.NamE;
End;//ende loadimage!!
function Testsize(Size:INTEGER):BOOLEAN ;
begin
//IntToStr(f.size);
if f.size >=Size then
result :=TRUE
else
result :=False;
end;///ENDE TestSize!
function Bearbeite(Filename :string) :BOOLEAN;
begin
//to doo
end;
procedure Main;
begin
Load;
LoadImage;
//if Testsize(1)then
//Bearbeiten();
end;
//function
procedure TForm1.Button1Click(Sender: TObject);
const
SELDIRHELP = 1000;
var
filename: array of string;
B: file of Byte;
begin
Main;
end;
end.
(