Herausfinden ob eine Datei existiert

[KodeZwerg]

Ich habe mal spaßenshalber 2 checkboxen auf eine form geknallt und folgendes erfolgreich ausprobiert, damit solltest du voran kommen wenn du meiner logik folgen kannst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Component: TComponent;
begin
  for I := 1 to 2 do
    begin
      Component := FindComponent('CheckBox' + IntToStr(I));
      if ((Component <> nil) and (Component is TCheckBox)) then
        TCheckBox(Component).Caption := 'Text ' + IntToStr(I);
    end;
end;

Viel Spass damit!

[blawen]

Eine andere Variante mit 3 bereits vorhandenen Checkboxen, einem OpenDialog, einem Memo als visuelle Kontrolle für den Textinhalt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sListe   : TStringList;
  iZaehler : Integer;

begin
  if OpenDialog1.Execute
  then begin
    if FileExists(OpenDialog1.FileName)
    then  begin
      sListe := TStringList.Create;
      sListe.LoadFromFile(OpenDialog1.FileName);

      // Ausgabe im Memo
      iZaehler := 1;
      repeat
        memo1.Lines.Add(sListe[iZaehler - 1]);
        inc(iZaehler);
      until iZaehler > sListe.Count;

      // Ausgabe via Checkbox
      iZaehler := 1;
      repeat
        TCheckBox(FindComponent('Checkbox' + IntToStr(iZaehler))).Caption := sListe[iZaehler - 1];
        inc(iZaehler);
      until iZaehler > sListe.Count;
    end
    else raise Exception.Create('Die Datei existiert nicht.');
  end;
end;

Um das ganze (Datei-) Handling zu vereinfachen, setze ich eine eine TStringList ein.
Allerdings beginnt deren Index bei Null, daher auch sListe[iZaehler - 1];

[KodeZwerg]

hab mal was gekürzt

Zitat von blawen:

Delphi-Quellcode:

  if ((OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName))) then
    begin

Geht bestimmt noch kürzer (FileMustExist)

[blawen]

Zitat von KodeZwerg:

hab mal was gekürzt

Zitat von blawen:

Delphi-Quellcode:

  if ((OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName))) then
    begin

Geht bestimmt noch kürzer (FileMustExist)

und auch "richtiger" - die Stringliste sollte auch wieder freigegeben werden
FileExists müsste vermutlich nicht eingesetzt werden, da eigentlich nur eine existierende Datei per OpenDialog ausgewählt werden kann.
Aber wenn JimmyB die Datei direkt aufrufen möchte, ist es zu empfehlen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sListe   : TStringList;
  iZaehler : Integer;

begin
  if      (OpenDialog1.Execute)
      and (FileExists(OpenDialog1.FileName))
  then begin
    sListe := TStringList.Create;
    try
      sListe.LoadFromFile(OpenDialog1.FileName);

      iZaehler := 1;
      repeat
        TCheckBox(FindComponent('Checkbox' + IntToStr(iZaehler))).Caption := sListe[iZaehler - 1];
        inc(iZaehler);
      until iZaehler > sListe.Count;
    finally
      sListe.Free;
    end;
  end;
end;

[himitsu]

Warum Repeat mit Variablelenrumgefummel und nicht einfach ein For, wo die Anzahl doch feststeht?

Und wer in die Options schaut, wird erkennen, dass man den Dialog so einstellen kann dass er nur existierende Dateien zurückgibt.

[HolgerX]

Hmm...

Zitat von blawen:

Zitat von KodeZwerg:

hab mal was gekürzt

Geht bestimmt noch kürzer (FileMustExist)

und auch "richtiger" - die Stringliste sollte auch wieder freigegeben werden
FileExists müsste vermutlich nicht eingesetzt werden, da eigentlich nur eine existierende Datei per OpenDialog ausgewählt werden kann.

Zum Einen hat der OpenDialog (zu mindestens in D6) ein Option 'ofFileMustExist'...
Zum Anderen 'ofAllowMultiSelect' wodurch mehr wie eine Datei ausgewählt werden kann und dann über OpenDialog1.Files aufgelistet werden.

[Dennis07]

Grundsätzlich muss man auch beachten, dass FilExists leider unter Windows mglw. nicht korrekt True bzw. False, sondern 1 -1 bzw. 0 zurückliefert. Das hatte ich auch schonmal, deshalb am besten "not FileExists(...)" anstelle von "FileExists(...) = False" verwenden.

[himitsu]

Gut, =False wird immer funktionieren, da es nur EIN False gibt,
aber =True fängt schon damit an, dass es -1, 1 oder bis zu 2 Milliarden andere Werte sein kann, aber die Konstante "True" nur einen Wert davon hat (im Delphi Boolean = 1 Byte ... im C++ oft 4 Byte signed oder auch ein 1 BYTE oder 1 SHORT oder 2 Byte oder ...)

also besser garnicht erst machen




Hier ist aber das Problem, dass "kann auf Verzeichnis nicht zugreifen und somit keine Dateien finden" auch als "existiert nicht" angesehn wird.
Es gibt halt nur JA und NEIN, aber kein VIELLEICHT.

Dafür könnte man entweder im FileExist eine Exception werfen, wenn es "Fehler" gibt, aber dieses Verhalten wäre jetzt nicht so toll, wenn es plötzlich knallen könnte,
also eine neue Funktionen ala "FileAccessCheck", welche z.B. einen Enum zurück gibt, mit Existiert, ExistiertReadOnly, ExistiertAberWederLeseNochSchreibzugriff ZugriffVerweigert, DateiExistiertNicht, VerzeichnisExistiertNicht, PfadUngültig, VielleichtNochwasDasMirGradeNichtEinfällt