Hallo,
ich habe folgenede funktion:
Delphi-Quellcode:
function profil_exists(pfad:string):boolean;
begin
if ((fileexists(datei1) and (fileexists(datei2)) then result:=true
else result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
if profil_exists(memo1.Lines.Strings[i]) then memo1.Lines.Strings[i]:=memo1.Lines.Strings[i]+' OK'
else memo1.Lines.Strings[i]:=memo1.Lines.Strings[i]+' FEHLER';
end;
end;
da ich recht viele dateien zu prüfen habe, möchte ich das ganze gerne mit mehreren aufrufen parallel machen, nur habe ich leider keine ahnung, wie ich dies anstellen könnte, die beiträge im forum haben mich mehr verwirrt, als mir geholfen.
Gibt es dafür einen einfachen ansatz?