Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
Danke das du dir soviel Mühe gemacht hast aber das ist nicht leider nicht was ich möchte. Ich bräuchte wohl ein end. aber das soll nur funktionieren wenn eine Datei nicht da ist =)
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
Danke für deine schnelle Antwort aber so funktioniert es auch nicht. Vielleicht sollte ich es nochmal besser erklären:
Die Prozedur löscht Dateien. Danach durchsucht sie Die Festplatten nach den Dateien und schreibt mir in eine .txt Datei ob die jeweilige Datei vorhanden ist oder nicht.
Ich möchte das dass Programm nachdem es rausgefunden hat das die Datei nicht vorhanden ist keine weiteren...
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
Naja klar , ich will nich die Schleife verlassen sondern was ich will ist:
Wenn eine Datei nicht vorhanden ist soll mein Programm die Zeile "not available" schreiben und sich danach schließen. Wenn aber alles vorhanden ist dann solls ganz normal weiter gehen ..
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
Ein weiteres Problem besteht dadrin das ich den Exit nich hinkriege wenn eine File nicht vorhanden ist.
Procedure DeletingFiles(Filename:String);
begin
for HDD:='C' to 'Z' do
if SearchForFile(HDD + ':\', Filename, APathFound) then
begin
repeat
DeleteFile(ApathFound+Filename);
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
das sind meine prozeduren , ja hätt ich mit posten sollen. habs jetz gefixxt , das closefile musste raus weil er ja so nach der ersten file closed hat obwohl noch eine kam ..und neu geöffnet hat er es ja auch nich..naja problem behoben , danke
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
Das ist mein Code nun, die erste Datei wird prima auf allen Laufwerken aufgelistet, ob sie da is oder nicht.. Aber dann bleibt er wieder hängen, die Schleife ist noch nich ganz richtig was mach ich falsch ?! :/
Procedure DeletingFiles(Filename:String);
begin
for HDD:='C' to 'Z' do
if SearchForFile(HDD + ':\', Filename, APathFound) then
begin
repeat
...
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
thkerkmann in deinem code hast du "is available" nich berücksichtigt, also mein code soll schon bestehen bleiben, nur umgeschrieben..
// funktioniet doch nicht,findet garkeine dateien mehr D:
Forum: Object-Pascal / Delphi-Language
by -187-,
1. Mär 2007
begin
for HDD:='C' to 'Z' do
if SearchForFile(HDD + ':\', Filename, APathFound) then
begin repeat
DeleteFile(ApathFound+Filename);
until SearchForFile(HDD + ':\', Filename, APathFound)=false;
end;
if SearchForFile(HDD + ':\', Filename, APathFound) then
WriteLn(myFile, Filename + ' available on: ' + APathFound) else
WriteLn(myFile, Filename + ' is not...
