AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

SelectDirectory Problem

Ein Thema von TK S 22 · begonnen am 12. Aug 2009 · letzter Beitrag vom 12. Aug 2009
Antwort Antwort
Seite 1 von 2  1 2   
TK S 22

Registriert seit: 12. Aug 2009
8 Beiträge
 
#1

SelectDirectory Problem

  Alt 12. Aug 2009, 16:59
Tag

Ich hab n Problem:
Ich habe gerade angefangen mit delphi und wollte ein Programm schreiben, welches alle .txt in einem Verzeichnis nach einem String durchsucht.
Soooo. Dann hab ich zum Auswählen erst TOpenDialog benutzt, war ja schwachsinn, kann man keine Ordner mit anwählen. Also zu SelectDirectory gewechselt aber nun:
Code:
 SelectDirectory ('Choose Directory', '', pfad);
  if SelectDirectory := true       /* Hier funkts nicht....*/
  then Label1.Caption := (pfad)
  else Showmessage ('Cancelled');

Wie lasse ich das Programm abfragen, ob Select Directory Ausgeführt, oder abgebrochen wurde??
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.199 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 17:02
Was bedeutet wohl der Rückgabeparameter der SelectDirectory-Funktion
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.151 Beiträge
 
Delphi 12 Athens
 
#3

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 17:06
Zitat:
Hier funkts nicht....
Das ist keine Problembeschreibung ... was geht nicht, bzw. welche Fehlermeldung kommt dort?

OK, ich kann's mir zwar vorstellen, aber dennoch.


hast du mal geschaut, wie andere diese Funktion benutzen?
siehe Hier im Forum suchenSelectDirectory

[dp]if SelectDirectory := true then[/dp]
also erstmal := ist keine Vergleichsoperation

und vergleiche NIE auf TRUE oder FALSE

Delphi-Quellcode:
if Variable then // = True
if not Variable then // = False

ja und es ist doch eine Funktion, wenn du es vorher aufrufst, dann steckt hinter dem Namen beim nächsten Aufruf doch nicht urplötzlich das Ergebnis

also wenn du den Aufruf schon prüfen möchtest, dann alles in die IF-Abfrage rein
if SelectDirectory('Choose Directory', '', pfad) then
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
TK S 22

Registriert seit: 12. Aug 2009
8 Beiträge
 
#4

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:23
Entschuldigt bitte, wenn ich hier jemandem auf den Schlips getreten bin aber ich weiß ncoh so gut wie nix wie delphi.


Ich habs jetzt. Danke.
Allerdings wäre da noch eine Frage zu klären.
Ich hab jetzt einen Befehl eingebaut, mit dem er alle Textdateien durchsucht, die nummeriert sind.
Code:
begin
    memo1.Clear;
    for i := 0 to 100  do
      begin
        StringList := TStringlist.Create;
        try
          StringList.LoadFromFile(pfad +inttostr (i) + '.txt');
          s := lowercase (StringList.Text);
          if pos (lowercase (edit1.Text), s) >0 then
          memo1.Lines.Add(inttostr (i));
        finally
          StringList.free;
        end;
Aber gibts auch ne möglichkeit einfach alle .txt in dem Ordner zu durchsuchen??
Danke.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#5

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:27
Die Möglichkeit gibt es. Dazu kannst Du das Gespann FindFirst, FindNext und FindClose verwenden. Hier in der DP gibt es dazu auch schon einige "fertige" Funktionen, such doch mal nach Hier im Forum suchenFindAllFiles.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
TK S 22

Registriert seit: 12. Aug 2009
8 Beiträge
 
#6

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:40
Da such ich dann doch nur nach dateinamen. Oder?
Ich wollte den Inhalt der .txt durchsuchen......
Oder hab ich jetz wieder was verwechselt??

PS: Danke n alle für die Schnelle und Kompetente Hilfe hier. Das muss echt mal gesagt werden
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.151 Beiträge
 
Delphi 12 Athens
 
#7

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:47
du kannst ja nach pfad + '*.txt' suchen

wobei das auch mit Delphi-Referenz durchsuchenFindFirst und Freunden ginge
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#8

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:49
Achso, Du willst nicht nach Dateien suchen, sondern im Inhalt der Dateien, stimmt das so?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
TK S 22

Registriert seit: 12. Aug 2009
8 Beiträge
 
#9

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:51
Riiiiiiiiiiiichtig...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#10

Re: SelectDirectory Problem

  Alt 12. Aug 2009, 18:53
Auf die Schnelle fällt mir folgendes ein: Stringliste erzeugen, Datei in die Stringliste laden und deren Text nach dem Suchtext abklopfen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz