Herausfinden ob eine Datei existiert

[blawen]

Zitat:

Zitat von JimmyB (Beitrag 1512372)

mir ist noch aufgefallen, dass diese Textdatei, die mein Programm nicht finden konnte, unter "Pfad zum Delphi Programm\Win32\debug" stehen muss.
Die Pfadangabe von mir, die ich im Code platziert habe, interessiert das Delphi Programm nicht die Bohne.

Die .exe liegt im Normalfall im \Win32(64)\Release(Debug) Verzeichnis... und wenn Du sie dorthin kopiert hast, wirst Du sie ja auch dort finden. ;-)

Zitat:

Ich habe die Textdatei ins gleiche Verzeichnis kopiert, wie die Projektdatei liegt, bzw. die .exe Datei und siehe es funktioniert.

Vom Beschrieb her klingt es, als ob Du z.B.

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

verwendest.

Wie sieht den der aktuelle Code aus?

[THY4243]

Zitat:

Zitat von blawen (Beitrag 1512373)

Vom Beschrieb her klingt es, als ob Du z.B.

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

verwendest.

Wie sieht den der aktuelle Code aus?

... Dann wäre es sicher einfacher, zu helfen. Auch, weil es ggf. ein Thema "Windows 32Bit-Application läuft auf 64-Bit-Windows" sein kann.

[JimmyB]

Hallo,

der Code, der so nicht funktioniert:
var i : Integer;
i:=1;
for i := 1 to 10 do begin
checkbox+inttostr(i).Caption := sLine;

Mit diesem Konstrukt funktioniert es auf jeden Fall nicht.

Ich einen Reihe von Checkboxen angelegt und in den "Captions" möchte ich jeweils eine Zeile aus der Textdatei anzeigen.
Anders geschrieben, im Grunde ist es egal, in welchem Objekt ich die Zeilen jeweils anzeige. Wichtig ist, dass jede Zeile in einem eigenen Objekt (also nicht in einem Richtext Objekt gezeigt wird.
Der Plan ist das ich Checkbox1, Checkbox2 und so weiter, der Reihe nach hochzähle und dann jeweils in die Textzeile dort anzeige.

vg JimmyB

[JimmyB]

Hallo,

der Code, der so nicht funktioniert:


while NOT eof (myfile) do
begin
//Step 6: Get each line of text file into string variable
readln (myfile, sLine);

// work with sLine

var i : Integer;
i:=1;
for i := 1 to 10 do begin
checkbox+inttostr(i).Caption := sLine;

Mit diesem Konstrukt funktioniert es auf jeden Fall nicht.

Ich einen Reihe von Checkboxen angelegt und in den "Captions" möchte ich jeweils eine Zeile aus der Textdatei anzeigen.
Anders geschrieben, im Grunde ist es egal, in welchem Objekt ich die Zeilen jeweils anzeige. Wichtig ist, dass jede Zeile in einem eigenen Objekt (also nicht in einem Richtext Objekt gezeigt wird.
Der Plan ist das ich Checkbox1, Checkbox2 und so weiter, der Reihe nach hochzähle und dann jeweils in die Textzeile dort anzeige.

vg JimmyB

[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

Delphi-Quellcode:

sListe[iZaehler - 1];

[KodeZwerg]

hab mal was gekürzt :)

Zitat:

Zitat von blawen (Beitrag 1512385)

Delphi-Quellcode:

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

Geht bestimmt noch kürzer (FileMustExist) :D

[blawen]

Zitat:

Zitat von KodeZwerg (Beitrag 1512386)

hab mal was gekürzt :)

Zitat:

Zitat von blawen (Beitrag 1512385)

Delphi-Quellcode:

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

Geht bestimmt noch kürzer (FileMustExist) :D

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:

Zitat von blawen (Beitrag 1512391)

Zitat:

Zitat von KodeZwerg (Beitrag 1512386)

hab mal was gekürzt :)

Geht bestimmt noch kürzer (FileMustExist) :D

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.