Herausfinden ob eine Datei existiert

[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];