Herausfinden ob eine Datei existiert

[BMI]

Zitat von KodeZwerg:

Alternativ mal mit einem OpenFileDialog an die Sache rangehen. Vielleicht ist ja wie Rolf schon schrieb keine Berechtigung vorhanden oder Du hast einen Tippfehler in deinem Hardcodet string drinn.

ja, find ich ansich gut.

ganz generell ..
OpenFileDialog ... und ähnliche Dialoge:
(nur mal noch so als persönliche Bemerkung
Also den Nutzer bei der Pfadsuche unterstützend finde ich ja gut.
Daß sie auch dem Programmierer ermöglichen den korrekten Pfad zu ermitteln und sicherzustellen, daß der Pfad auch konform angegeben wurde (kein 'C;\' oder 'C:\\Dokumente\' oder "C:\Dokumente", wenn man als Programmierer später zum Speichern an 'C:\Dokumente' noch 'Datei1.txt' für 'C:\Dokumente\Datei1.txt' dranhängen möchte.
Wenn man sich als Nutzer aber durch einen Pfad zum richigen Ordner 'C:\Dokumente\Nutzer\Karl\privat\Chor3\Vorstand\in terna\Kassenwart\Planung\2022\September\22\Abends\ Fahrt\Busreise\Vorkasse\' als Tree 16x klicken muß, statt einfach den Pfad per copy&paste direkt eingeben kann, (falls man den zur Hand hat), nur weil der Programmierer den Pfad nicht auf Fehler ('C:\pfad'+'datei.txt', 'C:\\da' s.o.) checken möchte ist das manchmal für den Anwender eine Tortur, v.a. wenn das Programm des Mal beim Speichern oder Laden wieder den Dialog bei 'C:\' beginnen läßt ...
Keepass, xmediaRecode und noch einige andere machen das so. Und man hat keine Möglichkeit jedes Mal den langen Pfad aus der Zwischenablage einzugeben ...

Man sollte auch an den Nutzer denken, der evtl. auch erfahrener ist und
ggf. mehrmals Pfade zum Speichern eingeben zum schnelleren Navigieren möchte und das Laden und Speichern ggf. freundlicher gestalten.
oder per Ini Pfade editierbar vorgeben können.

nur mal so nebenbei ... LG

[himitsu]

Delphi-Quellcode:

DragAcceptFiles(Self.Handle, True);  // mit WM_DROPFILES (oder nur an Edit/Panel)
SHAutoComplete(FilenameEdit.Handle, SHACF_FILESYSTEM or SHACF_FILESYS_ONLY or SHACF_FILESYS_DIRS
  or SHACF_AUTOSUGGEST_FORCE_ON or SHACF_AUTOAPPEND_FORCE_ON);

und zusätzlich noch einen Button/Doppelklick mit dem TFileOpenDialog

SHAutoComplete

[JimmyB]

Hallo allerseits,
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.
Sehr seltsam!

Wie dem auch sei, die Werte werden jetzt eingelesen und in einem Richtext Objekt zur Anzeige gebracht.
Jetzt ist der Plan aber das jede einzelen Zeile für sich in einem
----Checkbox1
----Checkbox2
----Checkbox3

zur Anzeige gebracht wird.
Ich habe dazu Versuche mit einem Label Objekt und einem Checkbox Objekt gemacht
Ich dachte für CheckBox1 wird nur die erste Zeile angezeigt.
Ist aber nicht so, weil die Schleife die Textdatei durchgeht und die letzte Zeile aus der Textdatei, im Caption des Objekts zur Anzeige bringt.
Mit einer Schleife, welche die Checkbox1, Checkbox2, Checkbox3 usw durchgeht, wäre eine Variable

- Checkboxi.Caption (i soll hier die laufende Nummer als Variable genutzt werden

ggf. ein Weg. Ich scheitere gerade an der Schleife, oder den Variabletypen.



vg JimmyB

[blawen]

Zitat von JimmyB:

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. ExtractFilePath(ParamStr(0)) verwendest.

Wie sieht den der aktuelle Code aus?

[THY4243]

Zitat von blawen:

Vom Beschrieb her klingt es, als ob Du z.B. 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!